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Apple Bonus featuring Graphi 
Jumps and the 6502 
een Print Utility for Atari 400/80C 
6809 Addressing Mode: 




Turn your Apple into the world's 
most versatile personal computer. 



The SoftCard™ Solution. SoftCard 
turns your Apple into two computers. 
A Z-80 and a 6502. By adding a Z-80 
microprocessor and CP/M to your 
Apple, SoftCard turns your Apple into 
a CP/M based machine. That means 
you can access the single largest body 
of microcomputer software in exist- 
ence. Two computers in one. And, the 
advantages of both. 

Plug and go. The SoftCard system 
starts with a Z-80 based circuit card. 
Just plug it into any slot (except 0) of 
your Apple. No modifications required. 
SoftCard supports most of your Apple 
peripherals, and, in 6502-mode, your 
Apple is still your Apple. 

CP/M for your Apple. You get CP/M 
on disk with the SoftCard package. It's 
a powerful and simple-to-use operating 
system. It supports more software 
than any other microcomputer operat- 
ing system. And that's the key to the 
versatility of the SoftCard/Apple. 



BASIC included. A powerful tool. 
BASIC-80 is included in the SoftCard 
package. Running under CP/M, ANSI 
Standard BASIC-80 is the most 
powerful microcomputer BASIC 
available. It includes extensive disk I/O 
statements, error trapping, integer 
variables, 16-digit precision, exten- 
sive EDIT commands and string func- 
tions, high and low-res Apple graphics, 
PRINT USING, CHAIN and COM- 
MON, plus many additional com- 
mands. And. it's a BASIC you can 
compile with Microsoft's BASIC 
Compiler. 

More languages. With SoftCard and 
CP/M, you can add Microsoft's ANSI 
Standard COBOL, and FORTRAN, or 



Basic Compiler and Assembly Lan- 
guage Development System. All, more 
powerful tools for your Apple. 
Seeing is believing. See the SoftCard 
in operation at your Microsoft or Apple 
dealer. We think you'll agree that the 
SoftCard turns your Apple into the 
world's most versatile personal 
computer. 

Complete information? It's at your 
dealer's now. Or, we'll send it to you 
and include a dealer list. Write us. Call 
us. Or, circle the reader service card 
number below. 

SoftCard is a trademark of Microsoft. Apple II and 
Apple II Plus are registered trademarks of Apple 
Computer. Z-80 is a registered trademark of Zilog. 
Inc. CP/M is a registered trademark of Digital 
Research. Inc. 




CONSUMERS PRODUCTS 



Microsoft Consumer Products. 400 108th Ave. N.E.. 
Bellevue. WA 98004. (206) 454-1315 




HAVE WE GOT 





YOU IM 81 &'82 

Attend the biggest public computer shows in the country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM, Wang, DEC, 
Xerox, Burroughs, Data General, Qantel, Nixdorf, NEC, Radio 
Shack, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
puter art, electronic gadgetry, and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 

Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send $5 per person wilh the name ol [he show 
you will attend to National Computer Shows, 
824 Boylston Street. Chestnut Hill, Mass. 02167. 
Tel 617 739 2000 Tickets can also be purchased 
at the show 
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CHICAGO 
McCormick Place 

SCHOESSLING HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



WASHINGTON, DC 
DC Armory/Starplex 

2001 E. CAPITAL ST SE 

(E CAP. ST. EXIT OFF 1 295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

THURS-SUN 

SEPT 24-27, 1981 

1 1 AM TO 7PM WEEKDAYS 

1 1 AM TO 6PM WEEKENDS 









BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCT 15-18, 1981 

1 1 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



SOUTHEAST 
SHOW 

ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NE AT 
RALPH McGILL BLVD 

THURS-SUN 
OCT 29+IOV 1,1961 

1 1 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 
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LOS ANGELES 
LA Convention Center 

1 201 SOUTH FIGUEROA 

THURS-SUN 

MAY 6-9, 1982 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 
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Losing Control? 
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With Products From 
Sirius Software 



• 



Gorgon: The earth has entered a time 
warp . . . and the battle has just begun. 

Orbitron: Action in orbit and attacks 
from all sides. 

Gamma Goblins: Avoid the hyperder- 
mics while transporting blood to He- 
mophilia. 

Both Barrels: A two-game pack includ- 
ing "Duck Hunt" and "High Noon." 

Star Cruiser: Save yourself from the 
swooping aliens. 

Pulsar II: Pulsar and Wormwall in a 
unique combination. 



Phantoms Five: Real-time 3-D fighter- 
bomber challenge. 

E-Z Draw: An easy, powerful, and ver- 
satile Apple graphics editor, includes 
the Higher Text generator by Ron and 
Darrel Aldrich. 

Cyber Strike: Challenging galactic 
excitement for the real arcade gamer. 

Autobahn: Hair raising excitement at 
200 kilometers per hour. 

Epoch: Explosive fast action with new 
3-D effects. Complete with high speed 
docking and a time warp that is sure to 
give you vertigo. 



Pascal Graphics Editor: Easy anima- 
tion and powerful graphics editing has 
finally arrived. 

Sneakers: Unending variety and fun 
as you meet the Sneakers, Cyclops, 
Saucers, Fangs, H-Wings, Meteors, 
Scrambles, and Scrubs. 

Space Eggs: Hatch some fun with the 
spiders, lips, wolves, and Fuzzballs. 



Apple II and Apple II - are registered trademarks of Apple 
Computer. Inc. All games mentioned in this advertisement 
are copyrighted products ot Sirius Software. Inc. All rights 
reserved. 



Contact your local computer dealer for more information. Dealer inquiries invited. ■ 



Sirius Software, Inc.^ 



201 1 Arden Way #2 Sacramento, CA 95825 (916) 920-1939 
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Jumps and the 6502 Mark Bernstein 

Methods of jumping and branching are discussed 

The Disk Switch Nelson £ Ingersoll 

Add life to diskettes and disk drives, and save energy 

It's Time to Stop Dreaming, Part 4 Robert m. Tripp 

Addressing modes of the 6502 and 6809 are compared, new ones discussed 

Journal It: Screen Print Utility for Atari John Elliott 

This utility will capture screen text and then journal it on a printer 



ASMLST: Full-sized Assembler Listing for AIM ... . 

Twenty-column listings are reformatted into full size 



Joel Swank 



MICROCRUNCH: An Ultra-fast Arithmetic 

Computing System, Part 2 John e. Hart 

A discussion of software support for the fast mathematics hardware outline in Part 1 
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Apple Graphics Ford Cavallari 

A quick overview of what's offered in our Apple Graphics Section 

SHAPER: A Utility Program for 

Managing Shape Tables clement D. Osborne 

Build shape tables by vector input 

List Controller Preston R. Black 

This program provides flexibility and ease of operation when using the LIST command 

Lo-Res Graphics and Pascal c. Donald Heth 

Plot low resolution graphics using Pascal 

Dollars and Sense Revisited David T. Deiii Quadri 

Learn to print format in Applesoft BASIC using a MID$ statement 

Paddle Hi-Res Graphics KimG. woodward 

Draw background scenes using paddles 

True 3-D Images on Apple II Art Radcllffe 

Create stereo-pair images without accessory devices 

Apple Bits, Part 1 Richard C. Vile, Jr. 

Aids for faster, more efficient low resolution graphics programming 

Tracemark, An Apple II Debugging Aid Raymond Wetsllng 

Understand complex problems with this study-tool utility 
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' Uni versatility,' 
It's as easy as 1. 2. 3. 



• 




'Universatility' can be found in three versions 
of Synertek Systems' SYM single board computer 
— the versatile, universal evaluation board. 

Over 20,000 SYM-1 boards have been used for 
learning about and evaluating 6502 microprocessors 
for specific applications. OEM SYM boards are used in 
hundreds of products. 

Now Synertek Systems presents the new SYM-1 /68 
for 6802 microprocessors, and the SYM-1 /69 for 6809 
microprocessors. These boards are designed to reliably 
perform the same functions as the SYM-1 board for 
these popular microprocessors. Each SYM board is 
complete and ready-to-use with its own version of 
the 4K byte ROM SUPERMON monitor firmware. 



Modification kits are also available to quickly and 
easily convert existing SYM-1 boards to SYM-1 /68 or 
SYM-1 /69 microcomputers. 

Build on your microprocessor knowledge with 
the 'universatility' of SYM microcomputer boards from 
Synertek Systems. 

Every SYM-1, SYM-1 /68, and SYM-1 /69 single 
board computer features: 

• 28 double-function keypad with audio response 

• 4K byte ROM resident SUPERMON with over 30 
standard monitor functions and expandable for 
individual requirements 

• Up to 24K bytes of available program memory 

• Expansion to 4K bytes of on-board static RAM 

• Expansion to 71 Input/Output lines 

• Single + 5 V power supply required 

• Standard interfaces for audio cassette with remote 
control, 185 bytes/second cassette format, TTY and 
RS-232-C, system expansion bus, four I/O buffers, 
and oscilloscope single-line display 



♦ 



RO. Box 552 Santa Clara, CA 95052 
Synertek Telephone : (408) 988-5689 

Systems TWX: 910-338-0135 

Dealer inquiries invited. 
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About the Cover 




Your Own Roller Coaster! 

What is more appropriate this time of 
year than the midway at a state fair or a 
trip to the local amusement park? The 
graphic on this month's cover is prob- 
ably not immediately recognizable. But 
then, it is our first three dimensional 
live action graphic! As the photo sug- 
gests, the graphic is of a roller coaster. 
One of the bonus sections in this month's 
issue is dedicated to Apple High Resolu- 
tion Graphics. One article covers the 
unusual topic of three dimensional mov- 
ing images. As an example, it shows a 
roller coaster which you can see moving 
around its 3D track. So, "Wheeeee..." 



Graphic from "True 3-D Images on 
Apple II" by Art Radcliffe 
Photo by Robert Tripp 
Thanks to Computer Mart of New Hamp- 
shire for producing the graphic on their 
equipment. 
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Editorial 



Reader Feedback 

Many thanks to the readers who took 
the time to fill out the questionnaire 
we included in our July issue. We have 
completed a preliminary analysis and 
some of the results were very surpris- 
ing. For instance, we knew that the 
Apple was the most popular system 
among our readers, but we didn't 
suspect that the OSI portion was nearly 
as high! The proportion of readers using 
OSI systems at home is approximately 
equal to that for Apple systems (35.4% 
vs. 35.0%), while the Apple systems 
are used more at work (18.6% vs. 
5.8%). The AIM and KIM percentages 
also came out a little higher than we 
expected. 

Another significant statistic is that 
more than a quarter of our readers have 
access to more than one system. 
Because of this, the percentages below 
add up to well over 100%. 



AIM 

Apple 

Atari 

KIM 

OSI 

PET/CBM 

SYM 

6809 

Other 



13.3% 

50.0% 

6.6% 

14.6% 

39.0% 

12.4% 

6.6% 

4.4% 

2.7% 



Sixty-three percent of our readers 
have had some formal training in com- 
puters, whether it be a masters in com- 
puter science or a night course in begin- 
ning BASIC. The average hardware 
level is somewhere between novice and 
intermediate (43% novice, 44% inter- 
mediate, and 12% expert), while the 
average software level is distinctly 
intermediate (19% novice, 62% inter- 
mediate, and 19% expert). 

Readers were asked to rate (with 1 
the best and 5 the worst) the various 
departments that appear in MICRO. 
Specialized departments such as 
Micros in Medicine, PET Vet, and the 
OSI columns, have understandably 
lower ratings because of the limited 
number of readers they serve. 



Software Catalog 
Hardware Catalog 
Editorial 
Letters 



2.3 
2.4 
2.5 
2.5 



New Publications 


2.6 


Bibliography 


2.8 


OSI columns 


3.2 


Clubs 


3.8 


Micros in Medicine 


3.9 


PET Vet 


5.1 



Articles overall received higher 
ratings than departments. The biggest 
surprise was the lack of interest in 
Pascal. Specific hardware and software 
articles received high ratings, but often 
notes were added: "1 if it's for my 
system, 5 otherwise." 



Specific software 


1.8 


Specific hardware 


2.0 


Programming techniques 


2.0 


BASIC 


2.1 


Applications 


2.1 


Assembly language 


2.2 


Tutorial 


2.3 


General software 


2.4 


General hardware 


2.7 


Pascal 


4.0 



These results are based on only 225 
questionnaires. We have twice as many 
more to process, and will be doing 
more analysis to help guide our adver- 
tising, promotion, and editorial efforts. 
We'll keep you updated on new results. 

Many readers made specific sugges- 
tions and comments. While it is im- 
possible to respond to all of these, you 
can be assured they all will be read and 
considered! Thanks again! 

Canadian Subscribers: 

We hope you've received your 
August issue by the time you read this. 
If not, don't despair — it is on the way. 
Here's the reason for the delay: the post 
offices here in the U.S. would not ac- 
cept Canadian mail because of the re- 
cent strike and subsequent backlog. 
However, we will be sending the issues 
August 17, and they should be in your 
hands soon! 

Letterbox 

You'll notice that our letterbox sec- 
tion rated high among readers answer- 
ing the questionnaire. However, if you 
check our table of contents this month, 
you won't find it listed. Unfortunately, 
we haven't been getting enough general 
letters to present Letterbox regularly. 
We ask that you send us your com- 
ments, gripes, or thoughts, so we can 
rejuvenate this popular department. 
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I HUNTINGTON COMPUTING 



!QK PROGRAMS LISTED BELOW ARE ON DISK: 



19 
B 
IS 
B 

19 
IS 
19 
B 
19 
B 
19 

a 

15 
B 
19 
B 
15 

B 
B 
19 
B 
19 
B 
19 



19 
B 

19 
B 
B 



HI-RES Soccer S29 95 now $25.39 

Intormer II S49 95 no- $42.99 

Wursl ol Huntington Computing $19.99 

B PI 15% OFF LIST 

AppleOids S29 95 now $25.39 

Epson M-80 w/card & cable $575.00 

Autobahn S29 95now $25.39 

Ml Comp Multi-Function Card 15% OFF LIST 

Gobbler .... S24 95 now $21.19 

On-Lme Compiler 1 5% OFF LIST 

VU#3 (Revised) 15% OFF LIST 

Battler Cruiser Action $39.95 now $33.99 

Ultima $39.95 now $33.99 

Gorgon 539.95 now $33.99 

Super Stellar Trek S39.95 now $33.99 

Word Star S375.00 now $289.00 

Mail Merge S125.00 now $106.19 

Super Sort S200.00 now $169.99 

Sentence Diagramming ... $19.95 now $16.99 

Black Beauty $34.95 now $29.69 

Moby Dick $34.95 now $29.69 

Dymarc Surge Suppressor $53.99 

Milliken Math 10% OFF LIST 

Gamma Goblins 529 95 now $25.39 

DBMaster $229.00 now $194.59 

The Dala Factory $150.00 now $124.00 

Mission Asteroid S19.95 now $17.99 

Wizardry $39.95 now $33.99 

Bright Pen $49.95 now $42.49 

Star Mines $29.95 now $25.39 

PFS (Personal Filing System) $95.00 now $80.69 

PFS Report $95.00 now $00.69 

Warp Factor $39.95 now $33.99 

Microsott Adventure 529.95 now $26.09 

Compu-Math: Arithmetic $49.95 now $44.95 

Modifiable Database II $150.00 now $127.49 

TG Game Paddles $39.95 now $33.99 

TG Joy Slick $59.95 now $50.99 

The Wizard 8 The Princess 532.95 now $28.99 

Flight Simulator (disk) 534.95 now $29.50 

Odyssey $29.95 now $25.50 

Sargon II $34.95 now $29.70 

Program Line Editor $40.00 now $34.99 

Space Eggs $29.95 now $25.39 

Videx 80-Col Board $350.00 now $199. OO 

3D Super Graphics 539.95 now $35.99 

Compu-Math I or II 540 00 now $34 ea. 

HI-RES Cribbage $24.95 now $21.99 

Lords ol Karma (cassette) $20.00 now $14.99 

Apple PIE & Formatter (Reg. S129.95) Special $99.99 

The Book ot Software 519.95 now $17.99 

Versa Writer Expansion Pac-I $39.95 now $33.99 

Apple II Users Guide 514.95 now $12.99 

Oh Shool! $19.99 

Serendipity Statislics or Gradebook $169.00 now $143.59 

ABM (Muse) $24.95 now $22.49 

Computer Conflict $39.95 now $35.99 

Computer Air Combat 559.95 now $52.99 

The Temple Of Apshai 539.95 now $33.95 

Super-Text II 5150.00 now $128.99 

Request $225.00 now $191. 19 

Thinker $495.00 now $420.69 

Super Kram $175 00 now $148.69 



Zork $39.95 now $33.99 

Howardsoft Real Estate Analyzer $150.00 now $129.99 

Super Disk Copy-Sensible $30.00 now $25.49 

The Landlord $795 now $649.99 

Nibble Express $12.95 now $1 1.99 

All Nibble Software 15% OFF LIST 

All Creative Computing 15% OFF LIST 

All Programma 15% OFF LIST 

Robot Wars 15% OFF LIST 

Cranston Mannor 15% OFF LIST 

Hayden AS Compiler $200.00 now $169.99 

Beneath Apple DOS Book $20.00 now $17.99 

Sublogic Animation Pack 15% oH list 

Memorex Disks 10 for $24.99 

Pascal Programmer $125.00 now $106. 19 

NEC 12 Green/Black $260 now $219.00 

VERBATIM DISKS (Datalife w/hub rings -unmarked) Ten for $27.99 

Spanish Hangman 529.95 now $26.99 

Dragon's Eye $24.95 now $21.19 

Computer Acquire $20.00 now $16.99 

Twala's Last Redoubt $29.95 now $25.39 

Snoggle $24.95 now $21.19 

DC Hayes Modem $379.00 now $299.00 

Data Capture 4.0 560.00 now $52.99 

'Clock" Time Teaching Program $29.95 now $26.99 

Alien Rain $24 95 now $21.19 

Alien Typhoon 524.95 now $21.19 

Raster Blaster 529.95 now $25.39 

Payroll S395 00now $335.69 

Home Money Minder 534 95 now $29.69 

3-D Skiing ... . S24 95 now $21.19 

Or Daley's Software Library . . . S79 95 now $69.99 

Physics I (Educ Courseware) S24 00 now $21.49 

J&S Computer Chemistry . S150 00now $139.99 

Cook s Touch Typing S14 9Snow $13.49 

EAI Literal Comprehension (grades 2-4) .S39.95 now $35.99 

COMPAK MATH Grade by Concepl S495 00 now $445.49 

Hellfire Warrior S39 95 now $33.99 

Mimco Joy Stick S60.00 now $54.99 

Paper Tiger 560G . S1795 00now $1499 

Ml Com Music System 5545.00 now $479.00 

Statistics (Edu-ware) S29.95 mow $25.39 

Algebra I (Edu-ware) 539.95 now $33.99 

Apple Crate S59 95 now $54.89 

Creature Venture S24 95 now $21.19 

Galaxy Space War I 539 95 now $33.99 

DOS BOSS 524 00 now $20.39 

Apple Barrel 529 95 now $25.39 

Apple Roots S39-95 now $33.99 

Interlude $19.95 now $16.99 

ALL INTERACTIVE MICROWARE 15%oHIUt 

Meteorites in Space 519. 95 now $16.99 

Letter Perfecl $149.95 now $127.39 

VisiCalc 3.3 5199.95 now $169.95 

VisiplOt $179.95 now $152.89 

Visitrend $259.95 now $220.89 

Visidex $199.95 now $169.95 

Visiterm $149.95 now $127.39 

Microsoft Typing $19.95 now $16.99 

ASC II Express $99.95 now $84.99 

Easy Writer Professional $250.00 now $2 19.O0 

ALL AVANT GARDE .. 15% oH lift 

DRAGON FIRE 15%.HN.t 



Ed Courseware Basic Tulor 1-6 . . 



$28.79 aa. 



Special Birthday Sale For Two-Year-Old Computer Users 










To celebrate our daughter Melody's second birthday, we are offering one of the best 
games we've seen anywhere at a special price. DYNACOMP, maker of exceptionally 
fine computer software, makes a game called HODGE PODGE for children ranging 
from under two years old to primary grades. Children learn the letters of the alphabet, 
words, numbers, musical scales, songs and animals The child presses any key on 
the keyboard and something happens. For example, when "D" is pressed, a dog 
appears who frowns when a bathtub comes into sight - all to the tune of "Oh Where 
Has My Little Dog Gone.'* Our Melody loves it and jumps up and down in excitement 
when she plays it It's a chance for her to finally get al the computer after watching 
Mommy and Daddy use it all day It's Ihe only program we know ol for children that 
young It runs on the Apple II" plus (Applesoft - ) and needs 48K plus a disk drive. It 
lists for 523.95 but if you say Happy Birthday Melody'' you can have it for 518.99. We 
know you'll like il We think it's fantastic 




B 
B 

QOrder by Phone 800-344-41 1 1 
In California (209) 992-54 11 



HUNTINGTON COMPUTING 

Post Office Box 787 
Corcoran, California 93212 



SUPER DISCOUNTS 
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SOFTWARE 



Buraer dv rnone ouu-ji4-4n i ■■VII./l^TU luriWAKt mm mm, ,: , ," -~ ■ 

In California (209) 992-5411 ^P ' ' W ^ f>"ces sublet to change 




We lake MasterCard or VISA (Include card 
* and expiration dale) California residents 
add 6°o tax Include 52 00 for postage 
Foreign and hardware exlra Send lor tree 
catalog Prices subject to change 



The ultimate APPLE® copy program 

COPY II PLUS 



VERSATILE — Copy II Plus copi*es multiple 
formats — DOS 3.2, 3.3, PASCAL, 
FORTRAN, and CPM. 

FAST — Copy n Plus copies diskettes in less 
than 45 seconds. That's faster than most 
other copy programs. Written entirely in 
ultra fast assembly language. 



CmmAi poomt 
Software, Inc. 



or check 



95 



Search no more for that truly versatile, fast 
copy program. Copy II Plus is the most 
advanced copy program available for the 
Apple II Computer. Compare capability, 
compare speed, compare price, then call or 
write to order Copy II Plus. Requires Apple II 
with 48K and at least one Disk Drive. 



P.O. Box 3563 

Central Point, OR 97502 

(503) 773-1970 



Deliveries from stock. No C.O.D.'s 

Apple is a registered trademark of Apple Computer, Inc. 
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Terrapin Turtle 



Be one of the first persons to own your own robot. It's fun, and 
unlike other pets, the Turtle obeys your commands. It moves, 
draws, blinks, beeps, has a sense of touch, and doesn't need 
to be housebroken. You and your Turtle can draw pictures, 
navigate mazes, push objects, map rooms, and much, much 
more. The Turtle's activities are limited only by your imagina- 
tion, providing a challenge for users of all ages. Interfaces, 
including software for easy control of the Turtle, are available 
for the Apple. Atari, and S- 100 bus computers. 

Terrapin will give a free Turtle to the person or persons who 

develop the best program for the Turtle by March 31 , 1982. In 

addition, Terrapin will pay royalties. For more information, 

write or call; 

Terrapin. Inc. 

678 Massachusetts Avenue 

Cambridge, MA 02139 

(617)492-8816 

Books available from Terrapin 

Turtle Geometry by Abelson and diSessa 

An innovative book using Turtle Graphics to explore 

geometry, motion, symmetry and topology. MIT Press $20.00 

Mind storms by Seymour Papert 

An exciting book about children, computers, and learning. 

Explains the philosophy of the new LOGO language. Basic 

BooksS12.95 



Artificial Intelligence by Patrick Winston 
Explores several issues including analysis of vision and lan- 
guage. An introduction to the LISP language is incorporated 
in the second section. Addison-Wesley$18.95 
Katie and the Computer by Fred D'Ignazio 
A children's picture book adventure about a young girl's 
imaginary trip inside a computer. Creative Computing $6. 95 
Small Computers by Fred D'Ignazio 

A book about the future of small computers and robots, aimed 
at adolescents. Franklin Watts $9.95 




No. 40 - September 1981 



MICRO - The 6502/6809 Journal 



Jumps and the 6502 



The 6502 microprocessor 
provides a variety of methods for 
jumping and branching. Several 
of these methods are not 
obvious, and can be very useful 
to the assembly language 
programmer. A little-known bug 
in the JMP INDIRECT instruction 
is also discussed. 

Mark Bernstein 

12 Oxford Street 

Cambridge, Massachusetts 02138 



Personal computers are powerful tools 
for program development, and many 
programmers have used them to dis- 
cover the pleasures of machine and 
assembly language programming. Since 
current microprocessors are relatively 
slow, and the available languages 
(especially BASIC) are even slower, 
many other computerists find them- 
selves forced to use assembly language 
routines simply to get the job done. For- 
tunately, personal computers are power- 
ful tools for developing assembly 
language routines. 

Since the personal computer is com- 
pletely dedicated to its user, developing 
machine language routines is simple and 
often pleasant. Load a monitor or assem- 
bler, type in a section of code, and run 
it! If the program is correct, the results 
will be as expected. If the program is 
wrong, testing will reveal incorrect or 
unexpected results. Looking at the pro- 
gram listing should uncover the defect. 

However, certain instructions are 
fraught with special difficulties. 
Whenever an instruction transfers con- 
trol from one segment of program code 
to another, the instructions responsible 
must be perfect the first time. If an LDA 
or SBC instruction is misplaced or oper- 
ates on the wrong address, the conse- 
quence will probably be a wrong answer. 
But if a JMP instruction tells the compu- 
ter to execute nonsense, the machine 
will probably require a complete reset, 



hours of typing may be lost, and (worst 
of all) no record of the run will be pre- 
served to help the programmer. 

Not only are control transfers tricky, 
they are often the dominant considera- 
tion in choosing a program's structure. 
A program that constantly jumps all 
over the place without apparent rhyme 
or reason will be difficult to understand. 
A program that uses lots of subroutines 
called by the JSR instruction is much 
easier to understand, but may prevent 
any practical use of the stack. On occa- 
sion, special and even peculiar methods 
of transferring control from one program 
segment to another may be rewarding. 

In the following discussion, I'll men- 
tion numerous ways of JUMPing 
through a program. The related issue 
of conditional jumps or branches is 
ignored. 

The Simple Jump: JMP 

The basic 6502 jump command is 
simple, easily understood, and quite 
useful. The syntax is simply 

FROM JMP THERE 
THERE... 

If the computer executes step FROM, it 
will jump to wherever THERE is, and 
execute that instruction next. Of 
course, it is vital that the address 
THERE contain valid 6502 instructions! 

The Simple Subroutine: JSR 

The Jump-Subroutine instruction 
JSR is almost as simple as the JMP in- 
struction. When the computer executes 
the command 

FROM JSR SUBROUTINE 

it jumps to the address SUBROUTINE 
and continues execution. Before it 
jumps, though, it leaves a message on 
the stack containing the address of the 
next instruction following the JSR 
command. 



When (and if) the subroutine wants 
to return control to the program that 
called it, it can simply terminate with 
the command 

RTS 

which jumps to the address on the top of 
the stack. 

The usefulness of subroutines in 
writing simple, efficient programs is too 
familiar to discuss here. A common 
problem, though, is what to do with the 
machine registers (A, X, and Y) when 
calling a subroutine. 

In the simplest case, we might allow 
the subroutine to alter any or all of the 
machine registers. This approach is fine 
for many cases, but clearly inadequate if 
the calling routine needs to preserve one 
or more registers containing data, loop 
counters, or other vital information. 



Figure 1: Arrangement of registers on 
stack after transfer of control. 
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Alternatively, we may insist that the 
subroutine preserve all registers. To do 
this we may (and normally must) use 
the stack. All subroutines begin with a 
sequence: 

PHA (save the A register) 

TXA 

PHA (save the X register) 

TYA 

PHA (save the Y register) 

and end with the corresponding se- 
quence: 

PLA (retrieve the Y register) 
TAY (put it back into Y) 
PLA (retrieve the X register) 
TAX (put it back into X) 
PLA (retrieve the A register) 
RTS 

Note that the order in which registers 
are placed on the stack is important. 
The registers must be reloaded in exactly 
the reverse order in which they were 
pushed onto the stack. The sequence, 
"push A, then X, then Y" is standard 
and has the advantage of storing the 
registers in alphabetical sequence. 

The programmer may take a page 
from the authors of the SYM monitor by 
ending all subroutines with a JMP to a 
special routine RESTORE: 



JMP RESTORE 

RESTORE PLA 
TAY 
PLA 
TAX 
PLA 
RTS 

Each subroutine must push the registers 
itself. This may be usefully written as a 
MACRO if the programmer's assembler 
is sufficiently powerful. 

There are two drawbacks to this 
method of preserving registers. First, all 
control transfers are slowed rather 
drastically by all this pushing and pull- 
ing from the stack. Moreover, if 
subroutines are deeply nested, or 
especially if they are recursive, (that is, 
if a subroutine calls itself), all the extra 
registers on the stack may accumulate 
and exceed the 6502 stack capacity (256 
bytes). A stack overflow is almost cer- 
tain to cause a crash, and may be 
miserably difficult to detect if it is unex- 
pected. Of course, each routine could 
check the stack pointer and abort the 
program if an overflow is imminent, but 
this checking adds still more overhead 
to the control transfer. 



In addition, a program that uses the 
stack extensively for storing registers and 

subroutine return addresses must be 
very cautious in using the stack for 
anything else. In particular, a sub- 
routine must never leave more or less 
data on the stack than were present on 
the stack when the subroutine was 
called. If the subroutine wants to leave a 
value on the stack, it cannot simply 
push it there: 

LDA ANSWER 

PHA 

RTS 

for the computer will treat ANSWER as 
part of its return address! 

To avoid this disaster, it is possible 
to manipulate the stack more carefully. 
First, the return address is pulled from 
the stack and stored somewhere in 
memory. Next, the answer is pushed on- 
to the stack. Finally, the return address 
is replaced on the stack. Notice that if 
the registers are saved on the stack, they 
too must be peeled off, stored, and then 
replaced. Even when the registers don't 
need to be preserved, the resulting code 
may seem a bit clumsy: 

PLA (save the return address) 

STA BUFFER1 

PLA 

STA BUFFER2 

LDA ANSWER 
PHA 

L.DA BUFFER2 (replace the 
return address) 

PHA 

LDA BUFFER1 

PHA 

RTS 

Note also that the calling program or 
subroutine must remove the result 
ANSWER from the stack. If some pro- 
gram segment forgets to do this, disaster 
is likely to follow. 

The Relocatable Jump 

Occasionally, it is important to 
write a routine which will run, regard- 
less of where it is stored in memory. For 
example, some utility programs are 
designed to be stored in the highest 
available memory locations of a user's 
computer, regardless of how much 
memory he actually has. 

A normal absolute jump, though, 
needs to know the address to which the 
program should jump! If the program is 
moved in memory, the jump commands 
still point to the old locations. Of 



course, a computer program (called a 
relocator) could be written to search out 
all the absolute jumps and change them, 
but relocators are difficult to write and 
easy to fool. 

The normal method of evading this 
difficulty on the 6502 is to use a branch 
instruction which always branches. 
Since the carry flag is changed infre- 
quently, the most common sequence is: 

SEC (force the branch) 

BCS THERE (always branches) 

Since branches can only jump (up or 
down) 127 bytes, this technique favors 
programs with only short-range jumps. 
When required, though, a sequence of 
jumps can move control over longer 
distances: 

SEC (start jumping) 
BCS ISLAND (go to ISLAND 
on the way to THERE) 



ISLAND 



THERE 



SEC 

BCS THERE 



Self-Modifying Code 

On occasion, it is necessary or con- 
venient to compute the address to which 
the computer should jump. An obvious 
analogy is the BASIC statement: 

ON I GO TO xxx.xxx.xxx 

Provided that the program is (at least 
partially) stored in RAM and not in read- 
only memory, it is perfectly possible to 
change the address of a JMP or JSR 
instruction. 

LDA DESTINATION 
(least significant byte) 

STA JUMP + 1 

(store into the JMP instruction) 

LDA DESTINATION + 1 

(most significant byte) 
STA JUMP + 2 
JUMP JMP... 

If required, we could obtain DESTINA- 
TION from a table, compute it from a 
formula, or enter it from a terminal. 

This approach is not without its 
hazards. First, it is dangerous. If the 
wrong address is stuffed into the JMP in- 
struction, garbage is likely to be ex- 
ecuted. If the computer is unlucky, the 
garbage will crash the computer, 
necessitating a system reset, which will 
erase all traces of the offending error. 
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Figure 2: Illustration of bug In 6502 " JMP Indirect" Instruction. 
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But, instead the 
computer looks at 
these locations. 



Second, many programmers feel that 
data (things which are computed) and 
procedures (instructions which are per- 
formed) should be rigorously segregated. 
Preserving the separation of program 
and data improves clarity and helps en- 
sure the integrity of both. Finally, many 
programs may need to be transferred to 
read-only memory at some point in their 
lives; clearly we cannot alter an address 
which is stored in read-only memory! 



To use a self-modifying procedure in 
a read-only memory system, a copy of 
the self-modifying subroutine may be 
stored in ROM and transferred to 
read/write memory when the system is 



initialized. This approach is adopted by 
Microsoft in its 6502 BASIC. The 
subroutine NEXTCHAR, which obtains 
each character in sequence from the 
BASIC source program, is transferred 
from ROM to part of memory page zero 
whenever the system is turned on or 
reset. Sections of BASIC, and many ex- 
tensions to Microsoft BASIC (like the 
"Programmer's Toolkit" produced by 
Palo Alto ICs Inc.) modify jumps in this 
routine. 

While the above discussion used the 
JMP instruction as an example, it 
should be clear that the JSR instruction 
is equally suitable for use in a self- 
modifying sequence. 



Indirect Jumps: JMP (addr) 

A further method of selecting the 
address to which control will be 
transferred is the indirect jump: 

JMP (WHERE?) 

WHERE? is an address in memory which 
contains the first 8 bits of a 16-bit 
number. When the computer executes 
the indirect jump, it goes to the address 
stored in WHERE? The effect is identical 
to the self-modifying jump described 
above. The code is cleaner and easier to 
follow. 

JMP (indirect) is also one of the most 
dangerous instructions of which the 
6502 is capable. 

Unfortunately, a confusing design 
decision (otherwise known as a bug) 
limits the usefulness of the indirect 
jump command. If WHERE? happens to 
be stored in an address ending in hex- 
adecimal $FF (for example, at $03FF), 
the 6502 makes a bizzare and confusing 
jump. The programmer expects the 
computer to look at WHERE? for the 
least significant byte of the jump ad- 
dress, and at WHERE? + 1 for the most 
significant byte. Unfortunately, the 
6502 does not carry when executing the 
JMP indirect instruction, and will look 
for the high-order byte not at 
WHERE! +1 but at WHERE! -$FF if 
WHERE? 's address ends in $FF. 

Fortunately, if the programmer 
knows and remembers this hazard, it is 
not too difficult to avoid. First, he can 
simply choose to locate all targets (like 
WHERE?) at addresses which do not end 
in $FF. Since indirect jumps are relative- 
ly uncommon, this is often perfectly 
reasonable. 



Second, a self-modifying sequence 
will perform correctly. The disadvan- 
tages may be worthwhile if the time loss 
is not critical. 

However, on rare occasions neither 
approach is fully satisfactory. An in- 
teresting example is the design of the 
6502 FORTH language for the FORTH 
Interest Group (by W.F. Ragsdale). Here 
an indirect jump figures prominently in 
a crucial routine, which must run as 
quickly as possible since it is called dur- 
ing every single step in the FORTH pro- 
gram. Ragsdale resigns himself to check 
each and every possible target for the 
JMP indirect instruction, and relocates 
the whole program by a few bytes to 
move any offending addresses. For- 
tunately, there is only one chance in 256 
that a given address will offend. The 
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programmer has some chance of getting 
away with ignoring this bug if he simply 
relies on luck. 



Using RTS to Perform a Jump 

RTS, of course, is normally used to 
terminate a subroutine. It performs two 
pulls from the stack, and jumps back to 
the address indicated by the two bytes it 
pulls. In normal usage, this returns con- 
trol to the instruction that follows the 
JSR which originally invoked the 
subroutine. 

Suppose a subroutine needs to return 
to an address different from that which 
called it. For example, we might define a 
subroutine called KEYBOARD that 
behaves as follows: 

Subroutine Keyboard 

1. Get the next key depression from the 
keyboard. 

2. Convert the key code to an ASCII 
character. 

3. Is the key the SYSTEM RESET key? 
(a) If not, then return normally (like a 
subroutine), (b) If so, return to the 
system monitor. Do not leave any 
junk on the stack! 

End Keyboard 

One way to implement step (3b) 
would be to fetch and discard the top 
two entries on the stack, and then use a 
simple JMP: 

PI_A (throw out the return 

address!) 
PLA (leaving the stack where it 

should be) 
JMP MONITOR 

Alternatively, the address of the 
monitor could be put onto the stack as if 
it were put there by a JSR instruction. 

PLA (throw out the old return 

address, as before) 
PLA 

LDA #L,MONITOR 
PHA 

LDA #H, MONITOR 
PHA (put address of monitor onto 

the stack) 
RTS (go to the monitor) 

Of course, a subroutine can also 
change the return address of the 
subroutine that called it, by looking 
deeper into the stack. For example, we 
might have a subroutine WHAT-NEXT? 



that decides what the highest priority 
task for the computer is, and changes 
the return address. 

Subroutine WHAT-NEXT! 

1. Set pointer to DO-NOTHING. 

2. Check all sensors. 

3. If the room is on fire, set pointer to 
FIRE! 



4. If the room is wet, set the pointer to 
FLOOD! 

5. If the power is failing, set the pointer 
to FAMINE! 



6. Change the return address of the 
routine that called WHAT-NEXT? to 
the routine indicated by the pointer. 

7. Return to whatever routine called 
WHAT-NEXT? 

A common jump usually performed 
using the RTS instruction is the abort 
exit. Often, it proves necessary to abort 
a program immediately upon detecting 
an error. If the program is called from 
BASIC or a machine language monitor, 
the usual method of exit is simply an 
RTS instruction. 

If a subroutine must abort the pro- 
gram, it must be able to return to the 
master routine (e.g. BASIC), not simply 
to the routine that called it. If the pro- 
gram saves the stack pointer when it is 
first called 

START TSX (stack contains exit 
address) 
STX ABORT 

then any subroutine, regardless of what 
other data may be on the stack, can 
abort execution and exit by restoring the 
stack pointer: 



QUIT 



LDX ABORT 

original pointer) 

RTS (back all the way to 

BASIC) 



Software Interrupt: 

The BRK Instruction 



The BRK instruction allows an 
interrupt-request to be generated by the 
program itself. When the computer en- 



counters a BRK, it takes the following 
steps: 

1. Stores the status register and the 
current execution address + 2 on the 
stack. 

2. Sets the BRK flag in the status 
register. 

3. Sets the IRQ Inhibit flag in the status 
register. 

4. Performs an indirect jump via hex- 
adecimal addresses $FFFE-$FFFF. 

The BRK instruction is most often 
used to jump to the system monitor. 
Since its opcode (00) is a common ele- 
ment in data tables, a program running 
amok has a fair chance to encounter a 
"BRK instruction" and so, return con- 
trol to the monitor. Also, by writing 
BRK's on top of normal machine code, a 
simple software-controlled breakpoint 
monitor may be implemented and sim- 
ple tracing performed. 

Microcomputers, including the 
6502, have simple interrupt structures, 
which cannot accept too much work. 
Moreover, the obstacles which make 
jumps difficult to debug make interrupt 
routines almost intolerably tedious to 
develop on most personal computers. 
Hence, use of the BRK routine should 
not be undertaken lightly. 

On occasion, though, BRK comes in 
handy, either when a special monitor- 
like routine is to be invoked, or for 
debugging normal interrupt service 
routines. Whenever you use it, be sure 
to remember that RTI will return to the 
calling program, skipping a byte after 
the BRK. BRK is really a two-byte opera- 
tion. Also, remember that BRK inhibits 
interrupt requests. Some machines, 
notably the Commodore PET, use inter- 
rupt requests to check the keyboard or 
display. A mysteriously non-responsive 
system may result. 



restore Changing the IRQ or NMI Vectors 



The subject of interrupt handling is 
too complex to be considered here. 
However, changing the interrupt service 
routine vectors can be a valuable tool in 
several programs, and must be mention- 
ed in the context of control transfers. 

Most 6502 systems place the IRQ 
and NMI vectors in ROM, but use an in- 
direct jump (explicit or via self- 
modifying code) through a RAM loca- 
tion to service interrupt requests (IRQs). 
The programmer may alter the RAM ad- 
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dresses to point to his own service rou- 
tines. Frequently the user's IRQ service 
routines end by jumping to the normal 
(system] IRQ routines. For example: 

BEFORE I 

IRQ VECTOR —> 
SYSTEM IRQ SERVICE 

AFTER I 

IRQ VECTOR —j 
USER'S ROUTINE — i 
SYSTEM IRQ SERVICE 

Several computers generate periodic 
interrupts to service their keyboards, 
displays, or other peripherals. Other 
systems possess 6522 timer facilities 
which may be user-programmed to gen- 
erate such interrupts. Setting the IRQ 
service vector to point to a user routine 
ensures that the new routine will be ex- 
ecuted within a fixed period of time. 

For example, I recently required a 
modified IRQ routine for the Commo- 
dore PET. The PET's screen is only 40 
characters wide, and a program has to 
provide extended text messages and 
graphics simultaneously. The answer 
was to scroll the messages across one 
line of the screen in the manner of a 
stock-ticker display. The PET generates 
IRQs every l/60th of a second. When 
the program had a message to send, it 
would add a new letter to the left end of 
the display line, three times a second. 
As long as more letters remained in the 
queue, the user IRQ routine was called. 
After the entire message was sent, IRQ 
handling reverted to normal until more 
text was placed in the queue. 

I should add that, whenever this pro- 
gram failed while it was being tested, it 
would leave a stream of amusing but 
useless text, cycling endlessly across the 
message line. The only way to stop the 
thing was to turn off the power! 

The author gratefully acknowledges 
the support of the Merck Foundation, 
whose award of a Merck Foundation fel- 
lowship helped make this work possible. 
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FEATURES AVAILABLE ON BOTH ROMS AT THE TOUCH OF A KEY: 

• Enter "Srrart Terminal" mode lor communications with a time share Dial-up computer 
network 

• Select half-duplex/full-duplex operation. 

• Select auto or manual line feed at carriage return 
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ADDITIONAL FEATURES PROVIDED IN THE ROM-TERM: 

• Disk bootstrap - In disk operation you can alternate between ROM Basic and Disk 
Basic with a keystroke Can Warm Start Disk Basic. 

• Easy transfer of programs between disk and ROM Basic. (Use the ROM Basicfor editing 
disk basic programs.) 

• Memory files can be stored or recalled in Disk Basic. ROM Basic or the ••Smart 
Terminal"' interchangeably 

ADDITIONAL FEATURES PROVIDED BY ROM-TERM II: 

• A 48 column video display on series II C 1 P( Revision "D" Superboard) Selection of 48 or 
24 column video with a "Control-V" keystroke Corrected "Syntax Error" rressages 

■RECOMMEND THE ROM-TERM II FOR NON-DISK OPERATION OF SERIES II C1 P (OR 
REVISION "D " SUPERBOARD) AND THE ROM-TERM FOR ALL OTHER SYSTEMS. 

ROM-TERM AND ROM-TERM II ARE A LOT MORETHAN JUST "SMARTTERMINAL- ROMS. 
THE EDITING MEMORY FILE AND OUTPUT DISTRIBUTOR FEATURES ARE INVALUABLE. 

EASY INSTALLATION. JUST PLUG INTO REGULAR C1P MONITOR ROM SOCKET 
ONLY $59 95' ORDER NOW 1 Check with your Local Dealer. Phone orders/Visa/MC accepted. 
Sent Postpaid on prepaid Domestic orders 

MICRO-INTERFACE 

31 1 1 SO. VALLEY VIEW BLVD., SUITE 1-101 

LAS VEGAS, NEVADA 89102 

Telephone: (702) 871-3263 



12 



MICRO - The 6502/6809 Journal 



No. 40 - September 1981 



M 



M 



M 



M 



END FRUSTRA TIONH 



FROM CASSETTE FAILURES 
PERRY PERIPHERALS HAS 
THE HDE SOLUTION 
OMNIDISK SYSTEMS (5" and 8") 

ACCLAIMED HDE SOFTWARE 

• Assembler, Dynamic Debugging Tool, 
Text Output Processor, Comprehensive 
Memory Test 

• HDE DISK BASIC NOW AVAILABLE 
PERRY PERIPHERALS S 100 PACKAGE 

Adds Omnidisk (5") to 
Your KIM /S -100 System 

• Construction Manual— No Parts 

• FODS & TED Diskette 

• $20. +$2. postage & handling. (NY residents 
add 7% tax) (specify for 1 or 2 drive system) 

Place your order with: 
PERRY PERIPHERALS 

P.O. Box 924 
Miller Place, N.Y. 11764 
(516)744-6462 

Your Full-Line HDE Distributor/Exporter 
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OSI Disk Users 

Double your disk storage capacity 
Without adding disk drives 

Now you can more than double your usable floppy 
disk storage capacity — for a fraction of the cost 
of additional disk drives. Modular Systems' 
DiskDoubler - is a double-density adapter that 
doubles the storage capacity of each disk track. 
The DiskDoubler plugs directly into an OSI disk 
interface board. No changes to hardware or 
software are required. 

The DiskDoubler increases free user disk space 
from 50K to 120K for mini-floppies, from 201 K to 
420K for 8-inch floppies. With the DiskDoubler, 
each drive does the work of two. You can have 
more and larger programs, related files, and disk 
utilities on the same disk — for easier operation 
without constant disk changes. 

Your OSI system is an investment in computing 
power. Get the full value from the disk hardware 
and software that you already own. Just write to 
us, and we'll send you the full story on the 
DiskDoubler, along with the rest of our growing 
family of OSI-compatible products. 



Modular System; 



P.O. BoxIBA Oradell, NJ D7B49 
201-2B2-DD93 



• 



$ 75.00 
$ 20.00 

$ 45.00 



$ 45.00 
$ 65.00 

$ 14.95 
$ 99.95 

$109.95 

$ 74.95 
$29.95 

$ 39.95 



Z-FORTH IN ROM by Tom Zimmer 

5 to 10 limes faster than Basic. Once you use it, you'll never go back to BASIC! 

source listing add 

OSI FIG-FORTH True fig FORTH model for 0S65D with fig editor named files, string 

package & much more 

TINY PASCAL Operates in fig-FORTH, an exceptional value when purchased with forth. 

TINY PASCAL & documentation 

FORTH & TINY PASCAL 

SPACE INVADERS 100% machine code for all systems with 64 chr. video. Full color 8 sound 

on C2, 4P & 8P systems. The fastest arcade program available. 

PROGRAMMABLE CHARACTER GENERATOR 

Use OSI's graphics or make a complete set of your own! Easy to use, comes assembled & tested. 

2 Mhz. boards 

PROGRAMMABLE SOUND BOARD 

Complete sound system featuring the AY-3-8910 sound chip. Bare boards available. 

32/64 CHARACTER VIDEO MODIFICATION 

Oldest and most popular video mod. True 32 chr. C1P, or 32/64 chr. C4P video display. 
Also adds many other options. 

ROMS!!! 

Augment Video Mod with our Roms. Full screen editing, print at selectable scroll, disk support and many more 
features. Basic 4 8 Monitor I lone 

Basic3 i RK'nn 

All 3 for $ 6500 

65D DISASSEMBLY MANUAL, by Software Consultants. First Class throughout. 

A must for any 65D user. » 24.ab 

NUMEROUS BASIC PROGRAMS, UTILITY PROGRAMS AND GAMES ALONG WITH HARDWARE PROJECTS. ALL 

PRICES ARE U S FUNDS. Send lor our $1.50 catalogue with tree program (hardcopy) Memory Map and Aulo Load 

Routine. 



OSI Software & Hardware 

3336 Avondale Court 

Windsor. Ontario, Canada N9E 1X6 

(5191 9692500 

3281 Countryside Circle 

Pontiac Township, Michigan 48057 

(313) 3730468 
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GRAPHICS 

FOR OSI COMPUTERS 

ft You Can Produce The Images 
Shown Or Yours And Program 
Motion With Our 256 By 256 High 
Resolution Graphics Kit. -ii_ 

Thats 65,536 Individually Controlled 
Points On Your TV Screen. 

ft Increase Column/Line Display. 
You Can Set Up Your Own Graphic 
Pixels Including Keyboard Characters 
And Unlimited Figures. 

ft This Kit Includes All Parts, Software 
And Assembly Instructions Required 
To Get Up And Running. 
The Included 8k Of 21 14 Memory 
Is Automatically Available When 
Not Using The Graphics. 
Boot Up And See 8k More Memory. 

ft Adding The Kit Does Not Affect^ 
Your Existing OSI Graphics. ^ 
Use Both At The Same Time 
Or Separately. 

ft Buy The Entire Kit, 

Including Memory, For $185.00 
Or A Partial Kit For Less If You 
Have Parts. Board And 
Instructions $40.00. Instructions 
Include Software. 




X ion 



For This Kit Or A Catalog 

Of Other Kits, Software 

And Manuals Call Or Write: 

MITTENDORF ENGINEERING 

905 Villa Neuva Dr. 

Litchfield Park, Az. 85340 

(602)-935-9734 



The Disk Switch 



• 



• 



The Disk Switch will add many 
hours of useful life to your 
diskettes, extend the life of your 
disk drives, and even save 
energy! 



Nelson E. Ingersoll 
6910 S. Bannock #2 
Littleton, Colorado 80120 



In the last year I have become very 
familiar with my OSI minifloppy 
system. I have learned its graces, and I 
have learned its faults. One of its faults 
is that OSI minifloppy drives have the 
nasty habit of eating diskettes. 

Minifloppy drives have spindle 
motors which turn the diskettes inside 
their protective jackets. Depending on 
whether the head is loaded, data can be 
transferred from the rotating diskette to 
the system. When the disk head is load- 
ed it actually comes into contact with 
the diskette. 

This contact of the disk head with 
the rotating diskette is very hard on the 
diskette. It slowly wears away the oxide, 
which ultimately results in the destruc- 
tion of the diskette. However, MPI, the 
company which makes OSI minifloppy 
drives, is not blind to the plight of 
diskettes. The MPI minifloppy drives 
have included in their circuitry the abili- 
ty to turn off the spindle motor when 
the drive is not being accessed. MPI 
recommends that their drives be turned 
off two seconds (or ten revolutions of 
the diskette) after the last access. 

Regretfully, OSI minifloppy sy stems 
do not do this. The MOTOR ON line is 
permanently wired in the ON state. OSI 
already had a working 8" floppy inter- 
face with the necessary software to drive 
it when they decided to mate a mini- 
floppy with an OSI personal computer. 
Redesigning the interface and software 
would have cost a lot of money, and OSI 
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customers would have had to pay that 
cost. So, OSI compromised. They kept 
the same floppy interface and software, 
added a few necessary modifications, 
and passed the savings on to us. 



Nonetheless, OSI made it imperative 
that something like the Disk Switch be 
designed. It is the job of the Disk Switch 
to turn off the minifloppy spindle 
motors when the drives are not being 
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used. The Disk Switch works well for 
both single and dual minifloppy 
systems. It is reliable, and will extend 
the life of the media you use in your OSI 
system. Let's take a look at how the 
Disk Switch works. 

Theory of Operation 

Figure 1 is the Disk Switch circuit 
diagram . The Disk Swi tch mo nitors the 
HDLD (Head Load) and STEP outputs of 
the OSI floppy interface. Whenever 
either of these two signals is active, the 
Disk Switch activates the MOTOR ON 
line, thereby turning ON the minifloppy 
spindle motor. 



The HDLD and STEP signals from 
the floppy interface are Exclusive OR'ed 
together by U1A, a 7486. The resulting 
signal is used to trigger U2A, the 
MOTOR ON 74LS123 one shot, into 
producing a two to three second output 
pulse. The output of the MOTOR ON 
one shot is inverted by U3A, a 7438 
ope n collector NA ND gate, to become 
the MOTOR ON signal to the mini- 
floppy drives. 

The MOTOR ON one shot and 
associated circuitry is the heart of the 
Disk Switch. All other functions of the 
Disk Switch are dependent upon the 
correct operation of this circuit. The 
74LS123 is used for U2 because larger 
value resistors can be used in its timing 
circuit, thereby allowing the use of 
smaller capacitors. The 7438 open col- 
lector NAND gate is used because it can 
take the electrical load that the 
minifloppy imposes on the Disk Swtich. 

The Q output of the MOTOR ON 
one shot also drives two other circuits. 
The first is the INDEX Inhibit circuit; 
the second is the Drive Select Inhibit 
circuit. 



INDEX is an output from the mini- 
floppy drive which indicates the begin- 
ning of a track. The OSI floppy interface 
must have the Index signal. When Index 
is missing, the system will wait for it — 
forever if necessary. Thus, when there is 
no Index, the system is locked up. 

I used this requirement of Index 
detection to give the spindle motor time 
to come up to speed before allowing the 
system to access the drives. The INDEX 
Inhibit one shot is tri ggered at the begin- 
ning of MOTOR ON. Its output will in- 
hibit Index from getting to the floppy 
interface for about one second. 

While inhibiting Index in this man- 
ner adds one second to the minifloppy 
access time, it is not unreasonable. 



Figure 2 
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Once an access has begun, the INDEX 
Inhibit circuit will no longer affect the 
operation of the access. Whether the 
access is two seconds or twenty, only 
one extra second is added by the INDEX 
Inhibit circuit. 

Note the wiring of the X-OR gate 
U1B at the input of the INDEX Inhibit 
circuit. In this configuration the X-OR 
gate has the function of an inverter. It is 
cheaper to get an inverter in this manner 
than to add another chip to the parts list. 

At the bottom of the circuit diagram 
in figure 1 is the Drive Select Inhibit cir- 
cuit. The Drive Select Inhibit de-selects 
the minifloppy drives when they are not 
being accessed. There are several 
reasons for this. The most important 
reason is to unload the disk head. 

The disk head is loaded by the drive- 
select input when it is active. Unloading 
the head is useful in preserving the life 
of the diskette, and the disk head itself. 
An additional feature of the Drive Select 



Inhibit circuit is that it lowers the power 
consumption of the drive by placing it in 
the stand-by mode. 

In operation, U1C and U1D invert 



DS-A (Drive Select A) and DS-B (Drive 
Select B) respectively. The inverted 
drive select signals are fed into U3C and 
U3D. U3 is a 7438 open collector 
NAND gate. The MOTOR ON signal on 
the second inputs of U3C and U3D 
prevents the drive sel ect signals fr om 
being passed on unless MOTOR ON is a 
logic high. 

Whenever the minifloppy drives 
have not been accessed for two seconds, 
the MOTOR ON signal from the 
MOTOR ON one shot is low. This low 
at the inputs of U3C and U3D forces 
their respective outputs high. The high 
output is the false or non-selected level, 
and neither of the drives is selected. 



An additional feature of the Drive 
Select Inhibit circuit is that in a dual 
minifloppy system it can be jumpered to 
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cause the selection of drives A or B only. 
This prevents the selection of non- 
existent drives. 

Note the jump er mar ked 'A' and 'B'. 
In the 'A' position DS-B is enabled such 
that its logical state selects dri ve B. 
When the jumper is in position 'B', DS-B 
is dis abled and the uninverted state of 
DS-A selects drive B. This causes the 
selection of drive B whenever drive A is 
not selected. This feature will prevent 
the accidental selection of non-existent 
minifloppy drives C and D. 

The Disk Switch can be simplifed by 
removing the Drive Select logic. It is not 
necessary to the operation of the Disk 
Switch, but helps to prevent diskette 
wear. In the event that the Drive Select 
Inhibit circuit is not used, the inputs of 
U1C, U1D, U3C, and U3D should be 
tied to +5VDC. 



Two of the four 470 ohm pull-up 
resistors, R5 and R6, should also be 
removed if the Drive Select logic is not 
used. The pull-up resistors are 
necessary, since the interface between 
floppy and system is made with open 
collector gates. In the case of the four 
pull-up resistors, the associated signals 
are not terminated anywhere else. 

By no w you a re probably wondering 
about the HDLD signal from the floppy 
interface. What is it for? The answer is 
simple — nothing! It is a relic of the 
floppy interface software used with the 
larger 8" disk dri ves. However, for our 
needs the HDLD signal is very useful. 
Assume that you need to access a track 
that has already been found. Since the 
head is already positioned over the cor- 
rect track, the system will not generate 
a STEP signal. The only ind ication of 
the access will be the HDLD signal. 



• 



Without the use of the HDLD signal 
an access to the same t rack would not 
trigger the MOTOR ON signal, the spin- 
dle motor wouldn't spin, so the Index 
signal would not be generated. There- 
fore, the system would lock up waiting 
for the Index signal . It was kind of OSI 
to leave the HDLD signal lying around 
like that. 

Construction 

I have already constructed several 
versions of the Disk Switch, and have 
installed the final version in three opera- 
tional systems. All versions of the Disk 
Switch that I have built easily fit on a 3 
by 2 inch perforated circuit board. 

I have used both wire wrap and 
point-to-point soldering to construct the 
Disk Switch. I do not recommend wire 



CBM/PET? SEE SKYLES ... CBM/PET? 



"They laughed when I sat down 
at my PET and immediately pro- 
grammed in machine language. . . 
just as easily as writing BASIC." 

With the new Mikro, brought to you from England by Skyles 

Electric works, always searching the world for new products for PET/CBM owners. A 
4K machine language assembler ROM that plugs into your main board. At just S80.00 for 
the Mikro chip, it does all the machine language work for you; all you have to do is start 
laying down the code. 

The Mikro retains all the great screen editing features of the PET. . .even all the Toolkit 
commands. (If you own a Toolkit, of course.) Sit down and write your own machine 
language subroutine. The program you write is the source code you can save. And the 
machine language monitor saves the object code. The perfect machine language answer 
for most PET owners and for most applications. (Not as professional as the Skyles Macro- 
TeA...not as expensive, either.) 

A great learning experience for those new to machine language programming but who 
want to master it easily. Twelve-page manual included but we also recommend the book, 
"6502 Assembler Language Programming," by Lance A. Leventhal at $17.00 direct 
from Skyles. 

Skyles guarantees your satisfaction: if you are not absolutely happy with your new 
Mikro, return it to us within ten days for an immediate, full refund. 

Skyles Mikro Machine language assembler $80.00 

"6502 Assembler Language Programming" by Leventhal 17.00 

Shipping and Handling (USA /Canada) $2.50 (Europe/Asia) $10.00 

California residents musl add 6%/6'/i% sales lax, as required. 



Skyles Electric Works 

231 f : South Whisman Road 
Mountain View, California 94041 
(415) 965-1735 



Visa/Mastercard orders: call tollfree 
(800) 227-9998 (except California). 
California orders: please call (415) 
965-1735. 



/lAiaO - S31A>«S 33S 6l3d/IAiaO 



wrap because of the posts that protrude 
from the board. Wire wrapping the cir- 
cuit is definitely easier, but the circuit 
board must be placed in a tight location. 
I suggest that the circuit be soldered 
point-to-point. Since there are no high 
frequency signals in the Disk Switch, 
the actual layout is not critical. 

The Disk Switch should be mounted 
on the A13 floppy interface board to 
facilitate wiring. The A13 board is the 
cable carrier for the minifloppy cables, 
and plugs onto the 505 CPU board. 

Mounting the Disk Switch on the 
A13 board is best since all of the signals 
used are available there. Servicing the 
Disk Switch is also much easier. The 
only precaution is to make sure the Disk 
Switch does not touch the 505 CPU, or 
whatever board may be located nearest it. 

Attaching the input and output sig- 
nals to the Disk Switch is a relatively 
simple matter. Just locate the appropri- 
ate traces on the A13 board, make the 
necessary cuts, and attach the wires. In 
all cases, the wires from the Disk Switch 
can be soldered into existing pads. 

Figure 2 shows where to mount the 
Disk Switch on the A13 board. All trace 
cuts are shown, as well as the locations 



of the various connections to the Disk 
Switch. 

In conclusion I will leave you with a 
word of caution. You have probably ac- 
quired the habit of opening the disk 
drive door when you don't need to ac- 
cess the disk. It is a reasonable habit 
that reduces diskette wear. With the 
Disk Switch this is no longer necessary. 
You should now leave the door closed 
when you are using the system. Other- 
wise, with the door open, the system 
will miss the Index signal when you try 
to access a disk. The Disk Switch will 
time out, and lock you out of your 
system. 

There is a simple fix for this that you 
might wish to try. You can add a pull-up 
resistor and a grounding switch to pin 1 
of U2, the MOTOR ON one shot. This 
would allow you to i ndependently trig- 
ger the MOTOR ON signal and restart 
the minifloppy drive. 

(If you don't feel up to the task of 
constructing the Disk Switch, you can 
obtain a kit from D&N Micro Products, 
3684 N. Wells St., Fort Wayne, IN 
46808. The kit contains all of the 
necessary parts and costs $29.00 plus 
$2.00 shipping and handling.) 

JUCAO 
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Color computer owners. 




Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 




DEALER ENQUIRIES INVITED 



Exatron, 

181 Commercial Street, 

Sunnyvale, CA 94086 



□ Please send a 32K Color Computer 
Interface for $199.00 

a Please send a CCI Disk Card for $99.00 

D Please include CCDOS and manual 

for $29.95 
D Also include a ROM Backup adaptor 

for $19.95 

Please add $5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City 

State Zip 

Charge my: 

n MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

□ Check enclosed for 

□ Ship COD ($2.00 extra) 



Signature 



•:\2K RAM plus Disk Interface TKS-xu is a trademark of Tandy 
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STOP BUYING THOSE "CANNED" SOFTWARE 
PROGRAMS THAT TURN OUT TO BE COSTLY, 
INEFFECTIVE AND INCOMPLETE. FINALLY THERE 
IS ONE SYSTEM, ONE SYSTEM THAT CONTAINS ALL THE 
POWER, ALL THE VERSATILITY YOU'LL NEED TO MAKE 
PROGRAMING FASTER, SIMPLER AND ERROR FREE. C.O.R.P.™ 
IS AN APPLICATION GENERATOR THAT ACTUALLY WRITES ALL 
THE SOFTWARE (COMPLETE APPLESOFT PROGRAMS THAT EXECUTE ^^ 
INDEPENDENTLY OF THE C.O.R.P.™ SYSTEM AND MAY BE MODIFIED BY THE ^^ 
USER) BASED ON INFORMATION SUPPLIED BY THE USER IN ENGLISH. COMPLETE §fc 
PROGRAM GENERATION TAKES ONLY MINUTES. 
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THE FIRST ONE, NOT THE LAST ONE 
IN PROGRAM GENERATORS 



C.O.R.P.™ CONSISTS OF 5 MAJOR SUBSYSTEMS: A DATA ENTRY PROGRAM GENERATOR 

A SORT SUBSYSTEM, A UPDATE SUBSYSTEM, A PRINT GENERATOR AND A COMPLETE 

DIAGNOSTIC PACKAGE . TOGETHER THE 5 SUBSYSTEMS MAKE C.O.R.P.™ 

THE MOST ADVANCED, COMPLETE AND USEFUL TOOL AVAILABLE FOR 

YOUR APPLE ll\ ALL FOR THE INCREDIBLY LOW PRICE OF $189.95**. 

DOLLAR FOR DOLLAR C.O.R.P.™ IS THE BEST BUY IN TOWN! 

NO OTHER PROGRAM GENERATOR OFFERS YOU SO MUCH ^^ 

VERSATILITY FOR SUCH A SMALL PRICE. TO PURCHASE 

C.O.R.P.™ SYSTEM BRING THIS AD TO YOUR 
^H LOCAL DEALER OR WRITE US DIRECTLY. 

MAROMATY & SCOTTO SOFTWARE CORP. 

P. O. BOX 61 • FLORAL PARK, N. Y. 1 1 001 

© Copyright 1981 Maromaty & Scotto Software Corp. 

•APPLE is a Registered Trademark of APPLE COMPUTER. INC. 
"Plus Handling and Shipping. N.Y. Stale Residents please add Sales Tax. 



It's Time to Stop Dreaming 



Part 4 



By Robert M. Tripp 



Parts 1 and 2 (MICRO 37:07 and 
MICRO 38: 27 1 of this series introduced 
the 6809 microprocessor. Part 3 
(MICRO 39:16) described the 6809 in- 
struction set from the 6502 user's point 
of view. That topic was easy to cover 
since there are so many similarities be- 
tween the two micros. This month's ar- 
ticle discusses the addressing modes of 
the 6809, and was more difficult to 
write. While the 6809 and 6502 do share 
a number of common modes (although 
often the nomenclature is different), the 
6809 offers a number of new modes 
which will take some getting use to for 
the 6502 devotee. These additional 
modes are very significant and con- 
tribute a lot to the overall functioning of 
the 6809. So, the effort involved in 
understanding them is well spent. 

Common Modes 

The following modes are essentially 
identical between the two micros. The 
name for each mode is different, but the 
processing is identical. 

IMPLIED or ACCUMULATOR (6502) 
and INHERENT (6809) 

This mode is used when the effective 
address of an instruction is "implied" or 
"inherent" in the instruction itself. Ex- 
amples on the 6502 are CLC (clear carry 
bit in status register), INY (increment Y 
register), RORA (rotate accumulator 
right, and so forth. "Accumulator" is 
another form of "implied." Examples 
on the 6809 are ABX (add B register to X 
register), CLRA (clear A register), and so 
forth. The basic addressing element of 
this mode is that any registers which 
will be affected are specified within the 
opcode and do not require additional 
information. 



IMMEDIATE 

The "immediate" mode is identical 
on the two processors. It takes as its ef- 
fective address the location(s) im- 
mediately following the opcode. On the 
6502 the immediate data is always 8 bits 
since that is all that the 6502' s registers 
can handle. On the 6809 the immediate 
data may be 8- or 16-bit. For example, an 
LDA #$05 would be 8 bits into the A 
register, but an LDX #$1234 would load 
16 bits into the X register. 

ABSOLUTE (6502) and 
EXTENDED (6809) 

These two modes are identical. The 
effective address is provided in the two 
bytes following the opcode. LDA $1234 
will load A from the absolute/extended 
address $1234. This mode of addressing 
permits the processor to directly access 
any location in its 64K addressing space. 

ABSOLUTE INDIRECT (6502) and 
EXTENDED INDIRECT (6809) 

The only instruction on the 6502 
which can use the absolute indirect 
addressing mode is the JMP. Any other 
instruction which requires an absolute 
indirect mode must either set the X 
register to zero and use the Indexed 
Indirect mode LDA (ADDR,X), or set 
the Y register to zero and use the In- 
direct Indexed mode LDA (ADR),Y. The 
6809 does not require such chicanery, 
but provides the Extended Indirect mode 
for all major operations, such as LDA 
(JUNK). This makes indirect addressing 
much simpler. 

ZERO PAGE (6502) and 
DIRECT PAGE (6809) 

These two modes are conceptually 
similar, and, for the zero page of 
memory, are identical. On the 6502, any 
address in page zero may be absolutely 



referred to by providing only the low 8 
bits of the address, with the mode de- 
fined by the opcode specifying that the 
high 8 bits are all zero. This makes 
accessing the 256 locations on page zero 
faster and requires only one byte of 
addressing instead of two. 

The 6809 carries this concept of only 
providing the low byte of the address a 
bit further. Instead of forcing the high 
byte of the address to zeros, it has a 
separate register called the "Direct Page 
Register," which contains the high byte 
of the address. If the DP register is set to 
zero, which it is automatically on 
RESET, then a "direct page" mode 
reference will be identical to the 6502 
"zero page" mode. But, the DP reigster 
may be changed to any other value, 
allowing the directly referenced page to 
be anywhere in memory! 

This function can be very useful. 
First, it removes the limitation of only 
256 bytes of directly addressable 
memory. Second, and probably more 
significant, it will support multiple 
tasks and multiple users. Code can be 
written which makes all task/user 
references in the direct page mode. By 
setting the DP register to a different 
value for each task/user, there will be 
no conflict and multiple tasks/users can 
easily share the same program code. 
One other addition to the 6809 mode is 
that JMP and JSR instructions are per- 
mitted via the Direct page. 

RELATIVE (6502 and 6809) 

This mode is used on both micros for 
the Branch operations. The data follow- 
ing the branch opcode is added to the 
Program Counter (PC) to determine the 
effective address for the branch. On the 
6502, the signed data is limited to one 
byte, providing a branch range of 127 
locations forward and 128 locations 
backward. The 6809 permits the signed 
data to be either one byte, in which case 
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it is identical to the 6502, or two bytes, 
in which case any address in the normal 
64K addressing space is accessible. 

The 8-bit mode is called a "short" 
branch and the 16-bit mode is called a 
"long" branch. [Note: Several years ago 
the savings associations of Red Bank, NJ 
and Long Branch, NJ were planning a 
merger, but it fell through because they 
did not want to be known as the Long 
Branch Branch of the Red Bank Bank! 
But, I digress.) Since the 6809 has a 
Branch to Subroutine and a Branch 
Always, the value of the long branch is 
even geater since JSRs and JMPs can be 
replaced by the relative BSRs and BRAs. 

INDEXED Addressing on the 6502 

Since the 6502 has 8-bit index 
registers, its indexing can only cover a 
range of 256 bytes and the 16-bit base 
address for all indexing operations must 
come from somewhere else. This may 
be an ABSOLUTE 16-bit address as in 
LDA JUNK,X or STA JUNK, Y. It may be 
a PAGE ZERO address which assumes 
the high 8 bits to be zero and directly 
specifies the low 8 bits as in LDA 
JUNK,ZX or CMP JUNK,ZY. Or, it may 
be one of the two special modes which 
combine indexing and indirect addressing. 

INDEXED INDIRECT uses X as an 
index to a set of Page Zero byte-pairs 
which are 16-bit addresses to the final 
effective address anywhere in memory. 
An example is ADC (JUNK,X) which 
will take the byte-pair that is X loca- 
tions above JUNK in Page Zero as the 
effective address for the operation. 
INDIRECT INDEXED uses a Page Zero 
byte-pair as the 16-bit address of the 
start of a 256-byte section of memory 
which is indexed by Y. An example is 
SBC |JUNK),Y which will take the 
16-bit value of JUNK and JUNK + 1 in 
Page Zero and add to it the current con- 
tents of Y to form the effective address. 

All of the indexed address modes are 
not available for all instructions, which 
while not fatal, can be a nuisance. Have 
you ever written a clever piece of code 
based on an INC (JUNK),Y only to find 
that there is no such animal?! Although 
the designers of the 6502 gave us some 
very useful indexed addressing modes, 
they were limited by the fact that the X 
and Y registers are only 8-bit. 

INDEXED Addressing on the 6809 

The best way to understand the 6809 
indexed addressing modes is to first 
forget all about the 6502' s. While there 
are some similarities, they are out- 
weighed by the great differences. So, 



let's depart from the comparative 
evaluation of the 6809 and look at the 
index addressing from scratch. 

One of the most important features 
of the 6809 is that its index registers are 
all 16-bit. A second significant feature is 
the multiple index registers: X, Y, S, U, 
and sometimes PC. That's right! The 
two stack registers, S and U, can per- 
form all of the indexing operations, and 
the program counter, PC, can be used in 
several special index operations. This is 
quite different from the 6502 with its 
two 8-bit index registers. There are three 
major categories of indexed addressing 
modes which can use the X, Y, S and U 
registers. 

Constant Offset from X, Y, SozU 

In this mode, a constant value is 
added to the contents of the specified 
index register to form the effective 
address. This is similar to the Absolute 
Indexed mode of the 6502: LDA 
JUNK,X in which JUNK is a 16-bit con- 
stant value to which is added the cur- 
rent value of X to form the effective ad- 
dress. The 6809 supports this 16-bit 
mode of constant offset, but also pro- 
vides three other modes: No offset, 
5-bit offset, and 8-bit offset. Since the 
index register is 16 bits, it can contain 
the entire effective address. It makes 
sense, then, to have a mode in which 
the contents of the index are used di- 
rectly without any additional constants. 
The instruction of the form LDA ,X on 
the 6809 will use the current contents of 
X as the effective address. 

There are many instances in which 
the offsets required are within a limited 
range. For example, if an index points to 
the base address of a VIA device which 
has 16 internal registers, only four bits 
of offset would be required to access all 
registers. Why use 16 bits when fewer 
will suffice (especially if you can save 
time and space with a smaller value)? 

The 5-bit constant offset of the 6809 
provides for a signed offset which can 
cover the range of + F to - F locations 
from the 16-bit index. The format of the 
instruction is the same as for the 16-bit 
constant offset: CLR JUNK.Y but JUNK 
is now a 5-bit or less signed value. 
Similarly, the 6809 provides an 8-bit 
constant offset. It covers a range of + 7F 
to - 7F locations from the 16-bit index. 
In summary, the 6809 provides four 
forms of Constant Offset indexing: No 
Offset, 5-bit Offset, 8-bit Offset and 
16-bit Offset. Each mode of increasing 
the number of bits requires either more 
instruction cycles, more instruction 
bytes, or both. 



Accumulator Offset from Index Register 

The 6809 can use one register to 
index another. Any one of the accumu- 
lators, A, B, or D, can be combined with 
the X, Y, S or U registers. The instruc- 
tion form is INC B,U which will per- 
form a two's complement addition of 
the B register and the U register to form 
the effective address. All combinations 
are valid and may be used for all major 
operations. The Accumulator Offset 
mode can be very powerful in perform- 
ing table lookups in which the position 
within the table is calculated by some 
routine and then implemented through 
this indexing mode. The A and B 
registers provide 8-bit signed offsets,- the 
D register provides a 16-bit signed offset. 

Auto Increment/Auto Decrement 

One very common use of an index is 
to step through a set of values. This is 
used in searching a table, moving a 
number of bytes from one location to 
another, and so forth. The 6809 provides 
four modes which either increment or 
decrement the index register as part of 
each operation. All four index registers 
may be used. They may be incremented 
or decremented by one when used for 
stepping through a table of single bytes, 
or may be incremented or decremented 
by two when working with 16-bit 
words, such as addresses. The form of 
the single increment is LDA ,X+ in 
which X has the 16-bit address which is 
used by the instruction as the effective 
address, and which is then incremented 
by one after the operation has taken 
place. The double increment form is 
LDA ,Y + + and the register is in- 
cremented twice after each operation. 

The decrement modes work in an 
identical fashion except that the decre- 
ment is done before the operation. If X 
contained $2000 at the start of a decre- 
ment instruction such as LDA , - X then 
the value loaded into A would come 
from location $1FFF. A double decre- 
ment instruction would be STA , S. 

Note that the minus sign(s) in the decre- 
ment comes before the register and that 
the plus sign(s) in the increment comes 
after the register. This indicates the 
order of the operation: decrement before 
the operation and increment after the 
operation. 

Program Counter Relative Addressing 

The previously discussed indexing 
modes all use the X, Y, S or U registers. 
It is very important in writing position- 
independent code to be able to refer to 
data in a position-independent manner. 
One way this is supported on the 6809 is 
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Indexed Addressing Mode Summary for the 6809 


' 


Type 




Forms 


Non-Indirect 


Indirect 


Constant Offset from R 




No Offset 


,R 


[,R| 


(2's Complement Offsets) 




5-bit Offset 


n,R 


defaults to 8-bit 






8-bit Offset 


n,R 


[n,R 








16-bit Offset 


n,R 


[n,R 




Accumulator Offset from R 




A Register Offset 


A,R 


[A,R 




(2's Complement Offsets) 




B Register Offset 


B,R 


[B,R 








D Register Offset 


D,R 


[D,R 




Auto Increment/Decrement 




Increment by 1 


,R+ 


not allowed 






Increment by 2 


,R+ + 


[,R++] 






Decrement by 1 


,-R 


not allowed 






Decrement by 2 


,--R 


[,--R] 


Constant Offset from PC 




8-bit Offset 


n,PCR 


[n,PCR| 


(2's Complement Offsets) 




16-bit Offset 


n,PCR 


[n,PCR| 


Extended Indirect 




16-bit Address 


xxxxx 


[n] 


NOTES: R is X, Y, S or U register. 








Extended Indirect is not an 


index mode but is included 


in the table for the sake of completeness on the 


Indirect Addressing 


forms. 









through an indexing mode which uses 
the current value of the Program 
Counter Register (PCR) as the base for 
calculating the effective address. There 
are two forms of this mode: 8-bit offset 
and 16-bit offset. These two modes are 
identical except for the size of the offset. 
LDA JUNK,PCR will add the 8-bit or 
16-bit offset of "JUNK" to the current 
value of PCR to calculate the current 
location of JUNK. This is identical in 
concept to the Relative Addressing used 
by the Branch instructions. Combined 
with the Load Effective Address instruc- 
tion, this mode permits the easy loading 
of an index register with the relocated 
address of a table. LEAY TABLE, PCR 
will put the absolute addresss of TABLE 
into the Y register where it can be used 
by the other modes of indexing to access 
the entire table. 

INDIRECT Addressing on the 6809 

All of the indexing modes discussed 
above, with the exception of the Auto 
Increment One and Auto Decrement 
One, can also have a level of Indirect 
addressing. This means that all of the 



calculations which go into producing 
the Effective Address take place as 
usual, but then this Effective Address is 
used to access a location which contains 
the final Effective Address. This pro- 
vides many modes for implementing the 
Indexed Indirect which the 6502 sup- 
ports in a limited manner for the X 
register only. 

The Indirect Indexed mode, which is 
very important on the 6502, is not need- 
ed as such on the 6809. Since the 6809 
has a variety of ways of getting the cor- 
rect 16-bit address into one of its four in- 
dex registers, there is no real need for 
the "indirect" portion of the mode. 
Why specify an address "indirect" on 
page zero as in the 6502 when it can be 
specified "direct" so easily on the 6809? 
The "index "portion of the mode is, of 
course, supported by all of the normal 
6809 indexing modes. 



Summary 

This four-part series has presented 
an introduction to the 6809 micro- 



processor as seen through the eyes of a 
6502 user. If it has encouraged you to 
find out more about this potential suc- 
cessor to the 6502, then the series has 
served its purpose. As an admitted 
novice on this particular micro- 
processor, I have tried to make an ac- 
curate presentation of the major features 
of the 6809, but may have made some 
mistakes! If you are serious about using 
this device, I recommend that you ob- 
tain the MC6809 or MC6809E data 
sheet from your Motorola represen- 
tative. 

I am actively working with the 
6809E on the Flexi Plus board that my 
sister company The COMPUTERIST, 
Inc. introduced in August 1981. I am 
sure that I will be finding out a lot more 
about this micro and will write addi- 
tional articles as needed. Meanwhile, 
several very knowledgeable 6809 com- 
puterists have offered to write articles. It 
will obviously take time to get our 
coverage of the 6809 rolling, so, if you 
have 6809 information to contribute, 
please cont act me. ^^^^_^ 

jMcno 



6809 SYSTEMS Q 6809 SYSTEMS % 6809 SYSTEMS Q 6809 SYSTEMS 
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Gimix 

Ttia Company that delivers 
Quality Electronic products since 1975. 



Featuring the GIMIX mamlrame wild 30 amp C.V. lerro-cesonanl power supply: litteen 50 pin and eighl 30 pin slot Mother Board: 

2 Mnz CPU with lime ol day clock & battery back-up. 1K RAM. 6840 programmable timer, provisions lor 951 IA or 9512 

Anlhmetic processors, and 4 PROM/ROM/RAM sockets lhat can hold up to 32KB ol monitor or user software. 

VARIETY: you can have 32KB. 56KB. 128KB and up ol static RAM. You can use 5" and/or 8" disk drives, single or double 

density, single or double sided, and single or double tracking with GIMIX disk controllers. You have a wide choice ol serial or 

parallel I/O cards. 

EXPANDABILITY: You can add memory. I/Os. Video or Graphics cards. Arithmetic processors, additional drive capacity, and other 

hardware now or in the luture to this SS50 bus structured system Irom GIMIX or other SS50 bus compatible manufacturers. 1337 WEST 37th PLACE. CHICAGO, IL 60609 

SOFTWARE VERSATILITY: GIMIX systems can use TSC's FLEX or UNIFLEX and MICROWARES 0S-9 operating systems. A wide (312) 927-5510 • TWX 910-221-4055 

variety ol software and languages is available tor these systems B _. .„.„„„„. ,.„ ,.„,,,.„„ i„m. m j,v. 

QUALITY: All boards are assembled, burned-m, and tested and feature GOLD PLATED BUS CONNECTORS. Only top quality com- mm * », GIMIX in? 

ponenls are used and all boards are fully buttered tor maximum syslem expansion. All boards come complete with bus connectors 

and all necessary instruction and documentation. flex and Umliex arc trademarks ol Tecnmcai Systems 

GIMIX designs, manufactures and tests, ro-house. their complete line ol products. Complete systems are available to lit your i 

needs Please conlact the factory il you have any special requiremenls. 



Men ads lor olher GIMIX compatible sollware. 
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A TEAM OF 6809 SUPERSTARS; 

Smoke Signal's Chieftain™ Computer, 
and Software by Microware 




HERE'S THE TOTAL 6809-BASED SYSTEM TOR THOSE WHO DEMAND 
UNSURPASSED POWER, FLEXIBILITY AND RELIABILITY 



After years of worldwide use in diverse and challenging appli- 
cations, the outstanding performers in 6809 computer opera- 
tions are SMOKE SIGNAL and MICROWARE. These leading 
companies are recognized as the undisputed choices when 
there is no room for compromises. 

WHY SMOKE SIGNAL AND MICROWARE LEAD 
THE 6809 FIELD 

Smoke Signal began pioneering research and development on 
6800/6809-based computer systems back in 1977. Microware 
worked three years to perfect OS-9 and BAS1C09. 

Both companies have evolved outstanding 6809-based 
products from early engineering research, and both pay 
almost fanatical attention to detail. For example . . . 

SMOKE SIGNAL'S 6809-based Chieftain'" computer series has 
proven its superiority in hundreds of demanding tasks. From 
gold-plated connectors to highest-quality materials throughout, 
each Chieftain™ is built to deliver absolute dependability from 
day one, and stay that way through years of service. 
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^ -l.-.lil RANI .-. < ' H Hi 11 ii r^ 

6 an exciuMir Smote ' 

S Signal quality tontroln 

r ihat powtlvriyvcriflrs fi 

8 (r< 




mmmmi!-: 



Every Chieftain™ is meticulously 
ENDURANCE-CERTIFIED at 2.2 MHz. 
That's SMOKE SIGNAL'S endorse- 
ment of product perfection. 



MiCROWARE's state-of-the-art OS-9 UNIX'-like operating system 
and the BASIC09 language have been developed in close 
coordination with computer manufacturers to maximize 
optimum system performance. The finest possible support and 

"UNIX is a trademark of Bell Telephone Laboratories. 




SMOKE SIGNAL 

BROADCASTING 



MICROWARE 



31336 VIA COLINAS 
WESTLAKE VILLAGE, CA 91362 
TEL (213) 889-9340 



documentation further ensure satisfaction. Microware software 
performance is best summed up in this remark by a 25-year 
computer veteran: 

"BASIC09 IS THE FINEST HIGH-LEVEL LAnOUAGE I'VE EVER 
SEEn in THE INDUSTRY!" 

Thousands of engineers and programmers use MICROWARE 
software products as their standard time-saving tool ... to 
execute process-control applications . . . and for other vital 
functions. COBOL and PASCAL are also available under the 
OS-9 operating system. 

HOW THIS REMARKABLE TEAM Of COMPUTER 
SUPERSTARS CAM SERVE YOU 

SMOKE SIGNAL'S Chieftain*" computer provides an array of 
configurations ranging from 5%-inch drives for single-user 
applications to multi-user, multi-tasking capabilities. Winchester 
hard-disk drive systems are also available. 

In other words, breathtaking power with as little as 48k 
memory; Microware's OS-9 Level Two can access up to one full 
megabyte that your Chieftain*" can address! 

One more sampling of the awesome processing potential 
at your fingertips with the Smoke Signal Chieftain'" computer: 

MICROWARE'S Stylograph screen-oriented word processing 
package instantly makes Chieftain'" an easy-to-use document 
preparation system with comprehensive editing commands. 

THERE'S MUCH, MUCH MORE! Call or write SMOKE SIGNAL 
for details on Chieftain'" computers and MICROWARE software. 

SMOKE SIGNAL Dealer opportunities are still available . . . 
please request information. 



□ Send information about 
and Microware software. 



Chieftain'" computers 
□ Provide information about Smoke Signal's Dealer program. 



Name . 



Address_ 
City 



State- 



Zip. 



Telephone 




The Newest In 



Apple Fun 



We've taken five of our most popular programs and 
combined (hem into one tremendous package full of 
fun and excitement. This disk-based package now of- 
fers you these great games: 

Mimic — How good is your memory? Here's a chance 
to find out! Your Apple will display a sequence of 
figures on a 3 x 3 grid. You must respond with the ex- 
act same sequence, within the lime limit. 

There are five different, increasingly difficult ver- 
sions of the game, including one that will keep going 
indefinitely. Mimic is exciting, fast paced and 
challenging — fun for all! 

Air Flighl Simulation— Your mission: Take off and 
land your aircraft without crashing. You're flying 
blind — on instruments only. 

A full tank of fuel gives you a maximum range of 
about 50 miles. The computer will constantly display 
updates of your air speed, compass heading and 
altitude. Your most important instrument is the Angle 
of Ascent/Bank Indicator. It tells if the plane is climb- 
ing or descending, whether banking into a right or left 
tum. 

After you've acquired a few hours of flying time, 
you can try flying a course against a map or doing 
aerobatic maneuvers. Gel a little more flight time 
under your belt, the sky's the limit. 
Colormaster — Test your powers of deduction as you 
try to guess the secret color code in this Mastermind- 
type game. There are two levels of difficulty, and three 
options of play to vary your games. Not only can you 
guess the computer's color code, but it will guess 
yours! It can also serve as referee in a game between 
two human opponents. Can you make and break the 
color code. . .? 

Star Ship Attack— Your mission is to protect our or- 
biting food station satellites from destruction by an 
enemy star ship. You must capture, destroy or drive 
off the attacking ship. If you fail, our planet is 
doomed . . . 

Trilogy— This contest has its origins in the simple 
game of lic-tac-toe. The object of the game is to place 
three of your colors, in a row, into the delta-like, mul- 
ti-level display. The rows may be horizontal, vertical, 
diagonal and wrapped around, through the "third di- 
mension". Your Apple will be trying to do the same. 
You can even have your Apple play against itself! 

Minimum system requirements are an Apple II or 
Apple 11 Plus computer with 32K of memory and one 
minidisk drive. Mimic requires Applesoft in ROM, all 
others run in RAM or ROM Applesoft. 
Order No. 0161AD $19.95 



Solar Energy For The Home 

With the price of fossil fuels rising astronomically, solar space-heating systems are starting to become very 
attractive. But is solar heat cost-effective for you? This program can answer that question. 

Just input this data for your home: location, size, interior details and amount of window space. It will then 
calculate your current heat loss and the amount of gain from any south facing windows. Then, enter the data 
for the contemplated solar healing installation. The program will compute the NET heating gain, the cost of 
conventional fuels vs. solar heat, and the calculated payback period— showing if the investment will save you 
money. 

Solar Energy for the Home: It's a natural for architects, designers, contractors, homeowners. . .anyone 
who wants to tap the limitless energy of our sun. 

Minimum system requirements arc an Apple II or Apple II Plus with one disk drive and 28K of RAM. 
Includes AppleDOS 3.2. 
Order No. 0235AD (disk-based version) $34.95 



Math Fun 



1234567890% 



Paddle Fun 



This new Apple disk package requires a steady eye and a quick hand at the game paddles! It includes: 
Invaders— You must destroy an invading fleet of 55 flying saucers while dodging the carpet of bombs they 
drop. Your bomb shelters will help you — for a while. Our version of a well known arcade game! Requires Ap- 
plesoft in ROM. 

Howitzer— This is a one or two person game in which you must fire upon another howitzer position. This pro- 
gram is written in HIGH-RESOLUTION graphics using different terrain and wind conditions each round to 
make this a demanding game. The difficulty level can be altered to suit the ability of the players. Requires Ap- 
plesoft in ROM. 

Space Wars— This program has three parts: (1) Two flying saucers meet in laser combat— for two players, (2) 
two saucers compete to see which can shoot out the most stars — for two players, and (3) one saucer shoots the 
stars in order to get a higher rank— for one player only. Requires Applesoft. 

Golf — Whether you win or lose, you're bound to have fun on our 18 hole Apple golf course. Choose your 
club and your direction and hope to avoid the sandtraps. Losing too many strokes in the water hazards? You 
can always increase your handicap. Gel off the tee and onto the green with Apple Golf. Requires Applesoft. 

The minimum system requirement for this package is an Apple II or Apple II Plus computer with 32K of 
memory and one minidisk drive. 
Order No. 0163AD $19.95 



The Math Fun package uses the techniques of immediate feedback and positive reinforcement so that 
students can improve their math skills while playing these games: 

Hanging— A little man is walking up the steps to the hangman's noose. But YOU can save him by answering 
the decimal math problems posed by the computer. Correct answers will move the man dov/n the steps and 
cheat the hangman. 

Spellbinder — You are a magician battling a computerized wizard. In order to cast death clouds, fireballs and 
other magic spells on him, you must correctly answer problems involving fractions. 

Whole Space— Pilot your space craft to attack the enemy planet. Each time you give a correct answer to the 
whole number problems, you can move your ship or fire. But for every wrong answer, the enemy gets a 
chance to fire at you. 

Car Jump— Make your stunt car jump the ramps. Each correct answer will increase the number of buses your 
car must jump over. These problems involve calculating the areas of different geometric figures. 
Robot Duel — Fire your laser at the computer's robot. If you give the correct answer to problems on calculat- 
ing volumes, your robot can shoot at his opponent. If you give the wrong answer, your shield power will be 
depleted and the computer's robot can shoot at yours. 

Sub Attack— Practice using percentages as you maneuver your sub into the harbor. A correct answer lets you 
move your sub and fire at the enemy fleet. 

All of these programs run in Applesoft BASIC, except Whole Space, which requires Integer BASIC. 
Order No. 0160AD $19.95 



Skybombers — 

Two nations, seperated by The Big Green Moun- 
tain, are in mortal combat! Because of the terrain, 
their's is an aerial war— a war of SKYBOMBERS! 

In this two-player game, you and your opponent 
command opposing fleets of fighter-bombers armed 
with bombs and missiles. Your orders? Fly over the 
mountain and bomb the enemy blockhouse into dust! 

Flying a bombing mission over that innocent look- 
ing mountain is no milk run. The opposition's aircraft 
can fire missiles at you or you may even be destroyed 
by the bombs as they drop. Desperate pilots may even 
ram your plane or plunge into your blockhouse, sui- 
cidally. 

Flighl personnel are sometimes forced to parachute 
from badly damaged aircraft. As they float helplessly 
to earth, they become targets for enemy missiles. 

The greater the damage you deal to your enemy, the 
higher your score, which is constantly updated at the 
bottom of the display screen. 

The sounds of battle, from exploding bombs to the 
pathetic screams from wounded parachutists, remind 
each micro-commander of his bounden duty. Press 
On, SKYBOMBERS-Press On! 

Minimum system requirements: An Apple II or Ap- 
ple II Plus, with 32K RAM, one disk drive and game 
paddles. 
Order No. 0271AD (disk-based version) $19.95 





Instant Software 



•A trademark of Apple Computer Inc. 

PETERBOROUGH, N.H. 03458 
603-924-7296 



24 



MICRO - The 6502/6809 Journal 



No. 40 -September 1981 



Apple* Software 

i From Instant Software 



Santa Paravia and Fiumaccio 



Buon giorno, signore! 

Welcome to the province of Santa Paravia. 
As your steward, I hope you will enjoy your 
reign here. I feel sure that you will find it, shall 
we say, profitable. 



Perhaps I should acquaint you with our little domain. It is not a 
wealthy area, signore, but riches and glory are possible for one who 
is aware of political realities. These realities include your serfs. They 
constantly request more food from your grain reserves, grain that 
could be sold instead for gold florins. And should your justice 
become a trifle harsh, they will flee to other lands. 

Yet another concern is the weather. If it is good, so is the harvest. 
But the rats may eat much of our surplus and we have had years of 
drought when famine threatened our population. 

Certainly, the administration of a growing city-state will require 
tax revenues. And where better to gather such funds than the local 
marketplaces and mills? You may find it necessary to increase custom duties or tax 
the incomes of the merchants and nobles. Whatever you do, there will be far- 
reaching consequences. . .and, perhaps, an elevation of your noble title. 

Your standing will surely be enhanced by building a new palace or a magnificent 
cailedrale. You will do well to increase your landholdings, if you also equip a few 
units of soldiers. There is, alas, no small need for soldiery here, for the unscrupulous 
Baron Peppone may invade you at any time. 

To measure your progress, the official cartographer will draw you a mappa. From 




it, you can see how much land you hold, how much of it is under the plow and how 
adequate your defenses are. We are unique in that here, the map IS the territory. 
I trust that 1 have been of help, signore. 1 look forward to the day when 1 may ad- 
dress you as His Royal Highness, King of Santa Paravia. Buona fortuna or, as you 
say, "Good luck". For the Apple 48K. 
Order No. 0174A $9.95 (cassette version). 
Order No. 0229AD $19.95 (disk version). 



TO SEE YOUR LOCAL INSTANT SOFTWARE DEALER OR USE THE ORDER FORM BELOW 

A ORDER 



For Fast tt ifir 

Sen,ice 6^ Toll-Free 
1-800-258-5473 



Apple Cassettes 

0018A Golf S7.95 

0O25A Mimic $7.95 

0040A Bowling/Trilogy $7.95 

0073A Math Tutor I $7.95 

0079A Oil Tycoon $9.95 

0080A Sahara Warriors $7.95 

0088A Accounting Assistant $7.95 

0094A Mortgage w/Prepayment Option/ 

Financier $7.95 

0096A Space Wars $7.95 

0098A Math Tutor II $7.95 

0174A Santa Paravia and Fiumaccio $9.95 

0148A Air Flight Simulation $9.95 

We Guarantee It! 



" Guarantee ^x^ 




OUR PROGRAMS ARE GUARANTEED 
TO BE QUALITY PRODUCTS. IF NOT 
COMPLETELY SATISFIED YOU MAY 
RETURN THE PROGRAM WITHIN 60 
DAYS. A CREDIT OR REPLACEMENT 
WILL BE WILLINGLY GIVEN FOR 
ANY REASON. 
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Name 



Address 
City 



. State _ 



-Zip- 



O Check O Money Order D VISA □ AMEX Q Master Charge 

Card No Exp. Date 

Signed Date 



| Order your Instant Software today! | 


Quantity 


Order No. 


Program name 


Unit cost 


Total cost 
























































Shipping and handling 




51.00 








Total order 





Peterborough, N.H. 03458 
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WMAT'5 MEW? 



Consumer Computers announces it's lowest prices ewer. 



Apple Add-Ons 

Language System w/Pascal 3 79 

Hayes Micromodem it 299 

novation Apple-Cat II 559 

Videx Videoterm 80 w/graphics 269 

2-80 Microsoft Card . 269 

16K Ram Card Microsoft 159 

ABT numeric Keypad (old or new hybrd) 1 10 

ALE 5 Voce Music Card 259 

rleunslics Speechlmh 2000 249 

Alpha Syntauri Keyboard System . 1 599 

Corvus 10 MB hard Dish CALL 

Lazer Lower Case Plus 50 

Micro-So Disk Drives (A40 & A 70) CALL 

SSM AIO Serial/Parallel Card AfiiT 189 

ThundefCiOCk PKjS CALL 

Integer or Applesoft II Firmware Card 145 

Graphics Tablet 619 

Parallel Printer Interface Ca'd 155 

Hi-Speed Serial interface Card 155 

Smarterm 80 Column video Card 299 

MustcSystem \ lb voices; 479 

AvD + D/A interface 289 

Clock/Calendar Card 225 

Supetalker SD-200 259 

Romplus + Card 155 

Cloch/Calendar Module (CCS) 99 

Asynchronous Senal Interface Card (CCS) 1 29 
We carry all CCS hardware Please Ca* 

FREE CATALOG! 

Please mail us your name and address. 
Solution Software for the Apple II. 

Visicaic 3 5 169 

CCA Data Management 85 

DB Master 169 

WordStar (Apple 80 col. wcr.) 299 

Desktop Plan II 169 

Applewtitet 65 

Easywrtter *^5 

Appieplot 60 

Peachtree Business 1200 

VisiTerm 129 

UisiTrenaWisiPiot 219 

DOS ToolKit 65 

Dow Jones Portfolio Evahjalor 45 

Dow Jones Hews & Quotes Reporter 85 

Apple Fortran 165 

Atari Personal Computer 





A TAR/ 800 16K 



$749 



Atari Accessories 

"110 Program Recorder 59 

8 10 Disk Drive 449 

850 Interlace Module 1 59 

1 6K Ram Memory Module 89 
Please call us for an Atari Software List 



5-100 Cards 

SSM « 

2-80CPUCB-2 219 

I042P* 251X3 1S9 

VB-3 80 x 24 V** O 329 

VB-5 80 x 48 VIDEO J69 

BV-2 VIDEO 159 

PB1 PROM PRQMMR 8t EPROM BOARD 159 



CCS 

280 CPU 2810 

64K Dynamic RAM card 

16K Static RAM 2 MHz 

16K StatK RAM 4 MHl 

Dot Density rioppy DBc Controter 
12 Slot 5-100 f 



n/a 
n/a 
n/a 
n* 

rtf» 
rv» 



Assmfii 
Tested 

279 
249 
579 
429 
219 
199 



229 
499 
249 
269 
299 
549 



16H 48K 

$1025 $1129 

Dish II Drive <{■ c -i Q 
w/controller tJ*" 



DisK drive w/out controller 

IV* carry the Appfc /// 



459 



CALL FREE! 
800-854-6654 

In California and outside continental U.5. 

(7 14) 698-8088 

Warehouse (714) 698-0260 

Service (714) 460-6502 
TELEX 695000 BETA CCMO 



AVAILABLE MOW . 




The NEC Microcomputer 

Please call for more details. 



Enidy Sorcerer II 




Please call 

for 
our price. 

S-lOOUnK 449 

Word ProceaWgPac 179 

Development Pac 89 



PMC-80 Micro Computer 




$599 



Ohio Scientific 
Challenger 
Computer. 

4P $549 

1PMODII 




Printers, Etc. 




Epson MX-80 

$499 

Silentype w/Apple interlace 349 

Epson MX«> r/T 649 

Epson MX- 100 829 

Epson MX- 70 359 

Paper Tiger ID5-445 729 

Paper Tiger ID5460 1099 

Paper Tiger IDS-560 1450 

Qume 5pnnt 5/45 2495 

Anadex DP 9500/ w/2R Buffer 1 549 

C Itoh 5tarwnter 25 CP5 1649 

C Itoh 5tarwnter 45 CPS . 2249 

Centronics 757 699 

Watanabe DigiPiot 1149 



Save on Video displays. 




Amdeh/leede* Video 100 12"B&W 

Amdek (Hitachi) i5"Coior 

HEC 12"P51 Oreen Phospner 

MEC 12"RGBI1i-Res Color 

Panasonic 15" Color 

Sanyo9"B8tW 

Sanyo 12" BfiiW 

Sanyo 12" P5 1 Green Phospner 

Sanyo 15" Color 



159 
559 
CALL 
CALL 
449 
159 
259 
279 
419 



We carry much more thsn listed. Please call our toll free 
order line to request our complete price list. 

How to Order 

Ordeflnq information Phone orders using VISA. MASTER- 
CARD. AMERICAN EXPRE5S. DINER'S CLUB. CARTE 
BLANCHE, bank wire transfer, cashiers or certified Chech, 
money order, or personal check (allow ten days to clear.) 
Unless prepaid with cash, please add 5% (or shipping, handl- 
ing and insurance, (minimum *5.00). California residents add 
6% sales tan We accept CODs, OEM's, Institutions and cor- 
porations please send lor a written quotation All equipment 
is subject to price change and availabBity without notice. AH 
equipment is new and complete with manufacturer's warran- 
ty (usually 90 days). Showroom prices may differ from mall 
order prices 

Send orders to: 




Mail Order 

8314 Parkway Drive 
La Mesa, California 92041 



Journal It: 

Screen Print Utility 

for Atari 



• 



This program describes a 
versatile utility for the Atari. It 
will 'capture' all screen text I/O, 
including user-program 
generated data and system 
prompts or responses, and then 
'journal' it on a printer. The 
journal will provide the user with 
a hard copy of a session's 
transactions, for logging or 
debugging purposes. 



John Elliott 

33 Gold Street, Apt. #708 

New York, New York 10038 



The program described in this article is a 
screen print utility for the Atari 
400/800, and it will be of interest to 
both BASIC and assembly language pro- 
grammers. Readers not familiar with 
assembly language will want to start 
with the section, "Using the Program," 
which describes how to use the program 
with BASIC. 

My need for a program to print 
screen text arose when I began using 
the Atari Assembler Editor cartridge. 
This cartridge contains three separate 
programs: 

1. The EDITOR program allows you to 
create and maintain assembler lan- 
guage source files. 

2. The ASSEMBLER program converts 
the source code to machine language. 

3. The DEBUG program provides many 
program testing aids, such as single- 
stepping through a program and/or 
tracing its execution path. DEBUG 
will also disassemble machine code, 
display the contents of memory, etc. 

Developing programs in assembly 
language can be difficult and time- 
consuming. Therefore a good debug 
package is a welcome addition to the 
assembly language programmer's sys- 



tems software library. I found the Atari 
DEBUG program to be very useful, but I 
was disappointed to find that output 
from the debugger could not be directed 
to a printer. 

Fortunately, the Atari I/O sub- 
system is very flexible, and a straight- 
forward 'patch' to the system I/O tables 



can be used to reroute data from one 
device to another. Specifically, it is not 
difficult to 'trap' data directed to the 
screen through the screen-editor, and 
then redirect it to a printer. 

The program in listing 1 is a logical 
extension of this idea. However, instead 
of rerouting data directed to the screen, 



Figure 1: Normal Screen Editor Data Flow. 



f User \ 
I Progr-art J 



Input 
Output 
Control 
Block 




Screen 
Editor 




Television 
Screen 



Figure 2: Data Flow with Journal Trap Installed. 




User 
Proqra<i 





FTinter 







Listing 1: Screen Journal 




0000 


0120 


.PAGE 






0130 


J ++++++++++++++++++++++++++++++ 






0110 


!+ ASSEMBLER ROUTINE TO + 






01S0 


i* TRAP SCREEN INPUT/OUTPUT + 






0160 


J+ 8 JOURNAL IT ON A PRINTER + 






0170 


;+ JOHN ELLIOTT MAV '81 + 






0180 


;++++++++++++++++++++++++++++++ 




0008 


0190 


WARMST = $0008 J WARM START FLAG 




031A 


0200 


HATABS = $031 A i DEVICE HANDLERS 






0210 


' (Continued) 
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the program will duplicate it on a 
printer. That is, the data will appear on 
both the icreen and the printer. Addi- 
tionally, the program will trap data 
coming from the screen editor, and copy 
that on a printer. The result is a 'journal' 
of all screen activity. 

Program Description 

To understand how the program 
works, we need to look at how the Atari 
talks to the outside world. The Atari OS 
(operating system) includes an I/O sub- 
system for communicating with the sys- 
tem I/O devices, such as disks, cassette 
drives, printers, etc. The subsystem is 
composed of resident 'handlers,' one per 
device. In the normal environment the 
user program will communicate with 
the handlers via an IOCB (input/output 
control block). Typical data flow is 
illustrated in figure 1 . 

In addition to providing a means of 
passing parameters, such as data ad- 
dresses and request codes, the IOCB 
contains pointers to the handler 
routines. Since the IOCBs are in RAM 
these pointers can be changed to address 
custom routines, and that is exactly 
what the journal program does. The 
handler pointers in the screen editor 
IOCB (IOCB § zero) are changed to point 
to the I/O trap routines. The result is 
that all data coming from, or going to, 
the screen through the screen editor (not 
the display handler) will be intercepted. 
These routines then call the printer 
handler to duplicate all screen I/O. The 
data flow is illustrated in figure 2. 

Besides intercepting screen I/O, the 
program performs a certain amount of 
control code translation. This is because 
the screen editor recognizes sixteen con- 
trol codes, most of which are treated as 
unprintable characters by the printer, 
and will appear as spaces on a printout. 
The translation is as follows: 



1. the "Clear Screen" code ($7D) is 
translated to an EOL (end of line) 
character ($9B) ; 

2. the "Insert Line" code ($9D) is 
translated to an EOL character |$9B) ; 

3. all codes and characters with a hex- 
adecimal value of less than $20 are 
ignored. 

This is by no means a comprehensive 
translation, but I have found it to 
be satisfactory for journaling most 
BASIC, Assembler Editor, and DOS 
transactions. 







Listing 1 


(Continued) 








0220 


! INPUT/OUTPUT CONTROL 


BLOCKS 






0230 


[ 








0000 




0210 


IOCB 


xs 


$0310 


!I/0 CONTROL BLOCKS 


0310 




0250 


ICHID 


*- 


x+1 


; HANDLER ID 


0311 




0260 


ICDNO 


x= 


x+l 


! DEVICE NUMBER 


0312 




0270 


ICCOM 


IE 


x+1 


; COMMAND CODE 


0313 




0280 


ICSTA 


Is 


x+1 


J STATUS 


0311 




0290 


ICBAL 


Xs 


x+1 


[BUFFER ADDRESS LSB 


0315 




0300 


ICBAH 


X= 


x+1 


[BUFFER ADDRESS MSB 


0316 




0310 


ICPUT 


*- 


x+2 


[PUT ROUTINE ADDRESS 


0318 




0320 


ICBLL 


x» 


x+1 


[BUFFER LENGTH LSB 


0319 




0330 


ICBLH 


Xs 


x+1 


[BUFFER LENGTH MSB 


031A 




0310 


ICAX1 


*- 


x+l 


[AUX CONTROL BYTE 1 


031B 




0350 
0360 


ICAX2 


x= 


x+1 


[AIJX CONTROL BYTE 2 






0370 


[ ENVIRONMENT ADDRE ISES/EQUAT 






0380 










BFFA 




0390 


CSTART 


= 


*BFFA 


[CARTRIDGE START 


007D 




0100 


CLEAR 


= 


*7D 


[CLEAR SCREEN CODE 


0020 




0110 


SPACE 


= 


#20 


[FIRST PRINTABLE CHAR 


009C 




0120 


DELETE 


s 


*9C 


[DELETE-LINE CODE 


009B 




0130 
0110 


EOL 


— 


*9B 


[END OF LINE CODE 


031C 




0150 
0160 


• 


*-■ 


*E100 


[START OF VECTOR TABLES 






0170 


;editor vecto 








018 


i 








E100 




0190 


EDITRV 


= 


X 


KEJ5 VECTOR TABLE 


E100 




0500 


EDOPEN 


x= 


x+2 


[OPEN VECTOR 


E102 




0510 


EDCLDS 


x= 


x+2 


[CLOSE VECTOR 


E101 




0520 


EDGETB 


Kb 


x+2 


[GETCHAR VECTOR 


E106 




0530 


EDPUTB 


x= 


x+2 


[PUTCHAR VECTOR 


E108 




0510 


EDSTAT 


x= 


x+2 


[STATUS VECTOR 


E10A 




0550 


EDSPEC 


XS 


x+2 


[SPECIAL VECTOR 


E10C 




0560 


EDINIT 


x= 


x+3 


[INITIALIZATION 


E10F 




0570 
0580 


t 


IB 


x+1 


[ SPARE 


E110 




0590 


SCRENV 


x= 


x+16 


[S: VECTOR TABLE 


E120 




0600 
0610 


KEYBDV 


Xs 


x+16 


[K! VECTOR TABLE 






0620 


SPRINTER VECTOR TABLE 








0630 


r 








E130 




0610 


PRINTV 


= 


X 


[■CPi> VECTOR TABLE 


E130 




0650 


PROPEN 


x= 


* + 2 


[OPEN VECTOR 


E132 




0660 


PRCLOS 


x- 


x+2 


[CLOSE VECTOR 


E131 




0670 


PRGETB 


x= 


x+2 


[GETCHAR VECTOR 


E136 




0680 


PRPIJTB 


x= 


x+2 


[PUTCHAR VECTOR 


E138 




0690 


PRSTAT 


x= 


x+2 


[STATUS VECTOR 


E13A 




0700 


PRSPEC 


x= 


x+2 


[SPECIAL VECTOR 


E13C 




0710 


PRINIT 


x= 


x+3 


[INITIALIZATION 


E13F 




0720 




x= 


x + 1 


[ SPARE 


E110 




0730 




.PAGE 




0600 




0710 


BEGIN 


= 


$0600 


[PROGRAM ORIGIN 


E110 




0750 
0760 


. 


Xs 


BEGIN 


• 






0770 


(COPY 


ce:> 


VECTOR TABLE 






0780 


t 








0600 


AO0F 


0790 




LDY 


*15 


[LENGTH OF VECTOR TABLE 


0602 




080 


COPVEC 


= 


X 


[COPY -CEtJ VECTOR TABLE 


0602 


B900E1 


0810 




LDA 


EDITRV, Y 




0605 


998306 


0820 




STA 


HAVECS,Y 




0608 


88 


0830 




DEY 






0609 


10F7 


0810 
0850 


» 


BPL 


COPVEC 


[LOOP 'TIL ALL COPIED 






0860 


(CHANGE CE! 


J HANDLER 


VECTOR 






0870 


} TO POINT 


TO OUR TABLE 






0880 


t 








0606 


A983 


0890 




LDA 


*HAVECS«*FF 


060D 


8D2103 


0900 




STA 


HATABS+7 


}<E!> VECTOR LSB 


0610 


A906 


0910 




LDA 


♦HAVECS/256 


0612 


8D2203 


092 
0930 




STA 


HATABS+8 


[!IE[> VECTOR MSB 






0910 


; POINT 


TO OUR PUT 


ROUTINE 






0950 










0615 


A91A 


0960 




LDA 


*0UTPUT-1S*FF 


0617 


8D8906 


0970 




STA 


HAPUTB 


[HANDLER TABLE.. . 


061A 


8D1603 


0980 




STA 


ICPUT 


[ . . .AND IOCB 


061D 


A906 


0990 




LDA 


♦OUTPUT-1/256 


061F 


8D8A06 


1000 




STA 


HAPUTB+1 




0622 


8D1703 


1010 
1020 


t 


STA 


ICPUT+1 








1030 


JPOINT 


TO OUR GETCHAR 


ROUTINE 






1010 


t 
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Listing 1 (Continued) 


0625 


A933 


1050 




LDA 


♦INPUT-1**FF 


0627 


8D8706 


1060 




STA 


HAGETB 


[HANDLER TABLE ONLY 


062A 


A9B6 


1070 




LDA 


♦INPUT-1/ 


256 


062C 


8D8806 


1080 
1090 


t 


STA 


HAGETB+1 








1100 


{VECTORS ESTABLISHED 


- NOW EXIT 






1118 


' 








062F 


8508 


1120 




STA 


WARMST 


[SET WARMSTART FLAG 


0631 


6CFABF 


1130 
1110 
1158 


r 
t 


JMP 


(CSTART) 


[CARTRIDGE START 






1160 


; MIRROR SCREEN INPUT 


TO PRINTER 






1170 


r 








0631 




1180 


INPUT 


= 


x 




0631 


8D9206 


1190 




STA 


SAVEA 


[SAVE ACCUMULATOR 


0637 


203F06 


1208 




JSR 


EGET 


[GO GET SCREEN INPUT 


063A 


206006 


12.18 




JSR 


PPUT 


[JOURNAL INPUT ON PRINTER 


063D 


D017 


1220 
1230 


r 


BNE 


EXIT 


[BACK TO CALLER 






1210 
1250 
1260 


;go get screen input 




863F 




EGET 


a 


* 




063F 


AD05E1 


1270 




LDA 


EDGETB+1 


[HI BYTE FIRST 


0612 


18 


1280 




PHA 






0613 


AD01E1 


1290 




LDA 


EDGETB 


[LO BYTE LAST 


0616 


18 


130 




PHA 






0617 


AD9206 


1310 




LDA 


SAVEA 




061A 


60 


132 




RT3 




[GO GET THE SCREEN INPUT 


61B 




1330 




.PAGE 








1310 


t 












1350 


; mirror screen output 


TO PRINTER 






1360 


r 








061B 




1370 


OUTPUT = 


X 




61B 


206006 


1380 




JSR 


PPUT 


[PUT CHARACTER TO CP[> 






1100 


;put ctw 








1110 


[ 








061F. 




1120 


EPUT 


= 


X 




061F. 


AD0 7E1 


1130 




LDA 


EDPUTBH 


!HI BYTE FIRST 


0651 


18 


1110 




PHA 






0652 


AD06E1 


1150 




LDA 


EDPUTB 


[LO BYTE LAST 


0655 


18 


116 




PHA 






0656 




1170 


EXIT 


= 


X 


[COMMON EXIT POINT 


0656 


AD9206 


1 18 




LDA 


SAVEA 


[RESTORE ACCUMULATOR 


0659 


AE9306 


119 




LDX 


SAVEX 


[RESTORE REGISTER X 


065C 


AC9106 


1500 




LDY 


SAVEY 


[RESTORE REGISTER Y 


065F 


60 


1510 
1520 


* 


RTS 




[PUT CHAR TO SCREEN/EXIT 






1530 


;put char to cp:y 




0660 




1550 


PPUT 


= 


X 




0660 


8D9206 


1560 




STA 


SAVEA 


[SAVE ACCUMULATOR 


0663 


8E9306 


1570 




SIX 


SAVEX 


[SAVE REGISTER X 


0666 


8C9106 


1580 




STY 


SAVEY 


[SAVE REGISTER Y 


0669 


C920 


159 




CMP 


♦SPACE 


[PRINTABLE CHAR? 


06(58 


9015 


160 




BCC 


PCALL 


[NO. . .IGNORE IT 


066D 


AD37E1 


1610 




LDA 


PRPUTB+1 


[HI BYTE FIRST 


0670 


18 


1620 




PHA 






0671 


AD36E1 


1630 




LDA 


PRPUTB 


[LO BYTE SECOND 


0671 


18 


1610 




PHA 






0675 


AD9206 


1650 




LDA 


SAVEA 


[PICKUP CHARACTER... 


0678 


C97D 


1660 




CMP 


♦CLEAR 


[CLEAR SCREEN? 


067A 


F001 


1670 




BEQ 


PSUB 


[YES. ..SUBSTITUTE EOL 


067C 


C99C 


1680 




CMP 


♦DELETE 


[DELETE LINE? 


067E 


DO 02 


1690 




BNE 


PCALL 


[NO.. .PRINT IT 


0680 




1700 


PSUB 




X 


[SUBSTITUTE EOL 


0680 


A99B 


1710 




LDA 


♦ EOL 


[SUBSTITUTE EOL 


0682 




1720 


PCALL 




X 




0682 


60 


1730 




RTS 




[ . . .AND PRINT IT 






1750 


; modified ce:::- vector 


TABLE 






1760 


» 








0683 




1770 


SAVECS 


= 


X 


[HANDLER VECTORS 


0683 




1780 


HAOPEN 


* : 


x+2 


[OPEN VECTOR 


0685 




1790 


iACLOS 


X = 


x+2 


[CLOSE VECTOR 


687 




1800 


HAGETB 


X = 


x+2 


[GETCHAR VECTOR 


0689 




1810 


4APUTB 


Xb 


x+2 


[PUTCHAR VECTOR 


0688 




1820 


HASTAT 


X— 


x-t 2 


[STATUS VECTOR 


0680 




1830 


HASPEC 


* = 


*t-2 


[SPECIAL VECTOR 


068F 




1810 


WINIT 


x= 


x+3 


[INITIALIZATION 






1860 


[REGISTER SAVE AREAS 








1870 


t 








0692 




1880 


SAVEA 


*= 


x+1 


[ACCUM SAVE AREA 


0693 




1890 


SAVEX 


Xs 


x+1 


[REG X SAVE AREA 


0691 




1900 SAVEY 


x~ 


x+1 


[REG Y SAVE AREA 


0695 




1910 




.END 







Program Environment 

The program is designed to work 
equally well with BASIC or the 
Assembler Editor cartridge, with or 
without DOS. It does not conflict with 
any of the BASIC or Editor functions, 
nor does it impose any limitations on 
application programs. It does not use 
any of the IOCBs (other than the screen 
editor's), therefore no program changes 
will be required before it can be used. 

Other than the system I/O tables, 
the program's use of RAM is hmited ex- 
clusively to page 6; no page zero loca- 
tions are used. Page 6 is not used by 
BASIC or any other Atari system soft- 
ware, and so is available for our use. 
Once loaded into RAM, the program 
will remain intact until removed by the 
user. None of the system programs will 
encroach upon it. Conversely, the pro- 
gram does not encroach upon the RAM 
allocated to the system programs. 
Therefore it does not have an impact on 
memory availability, and will run on 
the minimum 8K system configuration. 



The program is compatible with all 
the standard Atari software. However, it 
uses the in-ROM system vectors to call 
the printer handler. If you have installed 
a non-resident printer handler, you will 
need to modify the journal program to 
conform to the interfacing conventions 
of your handler. 

So far as hardware is concerned, 
the program will work with either the 
Atari 820 or 825 printer. It should 
also work with the Atari 822 Thermal 
Printer, although I have not been able to 
verify this. 

Using the Program 

The program is an assembly 
language routine, written to reside on 
page 6 of RAM. Those of you who have 
the Assembler should assemble the pro- 
gram shown in listing 1. For those of 
you who do not have the Assembler, I 
include a BASIC program (listing 2) 
which will POKE the machine code into 
RAM. (Listing 3 shows a sample RUN of 
this program.) If you use the BASIC pro- 
gram, be sure that you enter the DATA 
statements exactly as shown, otherwise 
the system might crash when you use 
the journal program. 

When you have loaded the program 
into RAM, you should execute it 
whenever you wish to initiate journal- 
ing. Before doing so, be sure that the 
printer is connected and powered on. If 
you are using BASIC, execute the pro- 
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Listing 2: BASIC program to set up Screen Journal Program. 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

22 

24 

26 

28 

30 

35 

36 

37 

38 

39 

40 

45 

50 



.+++++++++++++++++++++++++++++ 



BASIC PROGRAM TO SETUP 

MACHINE LANGUAGE ROUTINE 

THAT WILL 

TRAP SCREEN INPUT / OUTPUT 

& JOURNAL IT TO A PRINTER 

JOHN ELLIOTT MAY '81 



+ 
+ 
+ 
+ 

+ 

+ 
+ 
+ 



++++++ ++++++++++++++++++++++++ 



60 

65 

70 

75 

80 

81 

82 

83 

84 

85 

90 

95 ' 

100 

101 

102 

103 

104 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 

190 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

DIM HEX* (3) 

MLPR0G=1536:REM PAGE 6 ADDRESS 

GRAPHICS 

POKE 752,i:REM CURSOR OFF 

? J? "LOADING JOURNAL":? 

REM 

rem ++++++++++++++++++++++++++++++ 

REM + SETUP MACHINE LANGUAGE PGM + 

REM +++++++++ ++++++++++++++ +++ ++++ 

REM 

FOR ADDR=MLPROG TO MLPROG+1024 

READ HEX*: SOUND , ADDR-MLPROG , 1 , 4 

IF HEX*="END" THEN POP :GOTO 80 

HI=ASC<HEX*<1,1)>~48 

IF HI>9 THEN HI=HI-7 

LO-ASC ( HEX* (2,2)) -48 

IF L0>9 THEN L0=L0-7 

POKE ADDR,HI*16+L0:NEXT ADDR 

REM 

++++++++++++++++++++++++++++++ 
+ DISPLAY INSTRUCTIONS + 
++++++++++++++++++++++++++++++ 







REM 
REM 
REM 
REM 

? "journal loaded" 

? "to initiate journalling type f 

? :? "x=usr<"?mlprog;")" 

REM 

REM +++++++++++++++++++++++++++++ 

REM + HEXADECIMAL M/L PROGRAM + 
PEm ++++++++++++ +++++++++++++++++ 

REM 

DATA A0,0F,B9,00,E4,99,83,06 
DATA 88,1Q,F7,A9,83,8D,21,03 
DATA A9, 06,80,22, 03, A9,4A 
DATA 8D,89,06,8D,46,03,A9,06 
DATA 8D,8A,06,8D,47,03,A9,33 
DATA 8D,87,06,A9,06,8D,88,06 
DATA 85,08,6C,FA,BF,8D,92,06 
DATA 20, 3F, 06, 20, 60, 06, DO, 17 
DATA AD, 05, E4, 48, AD, 04, E4, 48 
DATA AD, 92, 06, 60, 20, 60, 06 
DATA AD, 07, E4, 48, AD, 06, E4, 48 
DATA AD,92,06,AE,93,06 
DATA AC, 94, 06,60,80,92,06 
DATA 8E,93,06,8C,94,06,C9,20 
DATA 90, 15, AD, 37, E4, 48, AD, 36, E4 
DATA 48,AD,92,06,C9,7D,F0,04 
DATA C9,9C,D0,02,A9,9B,60 
DATA END 



gram, using the command X = USR 
(1536), as shown in listing 3. If you are 
using the Assembler Editor cartridge, 
use the DEBUGGER'S GO (execute pro- 
gram) command, as shown in listing 4. 
Those of you who have DOS may use 
the RUN AT ADDRESS option to ex- 
ecute the program, as shown in listing 5. 
Note that both the DEBUGGER and 
DOS expect the address to be given in 
hexadecimal, whereas BASIC expects 
the address in decimal. 

To terminate journaling, press the 
SYSTEM RESET button on the console. 
The program will remain intact in RAM, 
and can be re-executed whenever you 
wish to re-initiate journaling. Turning 
the printer power off will, of course, 
terminate journaling. However, this is 
not recommended, since the trap pro- 
gram will continue to try to journal 
screen I/O, and will succeed only in 
wasting time. 

These operating instructions are in- 
tended only as guidelines. There are 
many other ways the program can be in- 
voked and you should use the procedure 
which best suits your own operating 
environment. 

Conclusion 

I believe you will find that the more 
you use this program, the more uses you 
will find for it. In addition to providing a 
journal of screen transactions, the pro- 
gram can be used to provide printed out- 
put from in-ROM programs which you 
cannot change, as in the case of the 
DEBUG program. Furthermore, you 
need never again go through your own 
programs, changing all the PRINT 
statements to LPRDNT statements when 
you want the output to go to a printer. 
Another interesting feature is that you 
can communicate with your Atari using 



Listing 3: Sample run of program In 
listing 2. 



READY 
RUN 

LOADING JOURNAL- 
JOURNAL LOADED 

TO INITIATE JOURNALLING 

TYPE : 
X=USR<1536) 

READY 



• 



the printer instead of the TV screen: 
turn off the TV and talk to the computer 
through the printer. Or, you can treat 
your Atari as an intelligent typewriter, 
using the screen editing features to cor- 
rect errors. 

In short, there are many possible ap- 
plications for this program, and I'm sure 
you will find even more uses than are 
listed here. I will be pleased to hear from 
those of you who do. 



Listing 4: Example of using the debug- 
ger to Initiate journalllng. 

EDIT 
BUG 

DEBUG 
G600 

EDIT 




Listing 5: Example of using DOS to in- 
itiate journalllng. 



Fi'EADY 
DOS 

DISK OPERATING SYSTEM 
COPYRIGHT 197? ATARI 

A. DISK DIRECTORY 

B. RUN CARTRIDGE 

C. COPY FILE 

D. DELETE FILE(S) 

E. RENAME FILE 

F. LOCK FILE 

G. UNLOCK FILE 

H. WRITE DOS FILE 

I. FORMAT DISK 

J. DUPLICATE DISK 

K. ElINARY SAME 

L. BINARY LOAD 

M. RUN AT ADDRESS 

N. DEFINE DEVICE 

0. DUPLICATE FILE 

SELECT ITEM 

M 

RUN FROM WHAT ADDRESS? 

600 

READY 



9/21/7? 



■••'••-•;v5S*SK;W; 



' SOFTWARE AUTHORS! 

for Apple. Atari. TRS-80, NEC. Hitachi 

Broderbund Software is looking for new authors to join its 

international team of programmers. If you have a product for 

the micro market, let us show you the advantages of working 

..,..-.. "with our team of design, production and distribution 

t^i&i::— specialists. s- jj(»$«rt:K" " 

Call or write for our free Authors Kit today or send us a 
machine readable copy of your work for prompt review under, 
strictest confidence. V^f W^ 



■•■■**■ 




derbund Softwar 




John Elliott is currently a Systems 
Consultant for On-Line Software 
International. He has been in the data 
processing field for over twelve years, 
specializing in implementing 
telecommunications software on large 
computer systems. He has served as a 
consultant in various locations in the 
USA, Europe and the Middle East. He 
finds that tinkering with his Atari provides 
an interesting contrast to his work on 
mainframes. 



. #2 Vista Wood Way. San Rafael, CA 94901 



CBM/PET? SEE SKYLES ... CBM/PET? 



"Look how fast I create these 
great graphic displays on my 
PET with the new PicChip... 
it's like home movies." 

PicChip, the new ROM that took Europe by storm, available 
only from Skyles Electric Works in the U.S. and Canada. 

PicChip, a ROM extension of the BASIC version III, BASIC 4.0 or BASIC 8032 interpreter 
that offers over 40 commands that allow you to create programs with dynamic graphics 
displays: plots, bar graphs, pictures; and rolling, scrolling, shifting and inverting. All in- 
stantly and easily added to your BASIC program. 

The address for the 2000/3000 (which would require PicChip module PC2), for the 4000 
(PC4), and for the 8O0O(PC8) is SAO0O ... unless you have a Mikro, WordPro 111 or IV, 
or Jinsam, which occupy that same address. In those cases, you will need the PicChip on 
an interface board that would reside in address B800. . . for the 2000/3000 series (PCB2), 
above the Toolkit. For the 4000 (PCA4) and 8000 (PCA8), the Mikro or WoodPro would 
be switchable manually using the Skyles Socket-2-ME. 

Skyles guarantees your satisfaction: if you are not absolutely happy with your new 
PicChip return it to us within ten days for an immediate, full refund. 

PicChip from Skyles Electric Works (Please indicate PC2, PC4, PC8) $60.00 

Complete with interface board (Please indicate PCB2, PCA4, PCA8) 80.00 

Shipping and Handling (USA/Canada) $2.50 (Europe/ Asia) $10.00 

California residents must add 6%/6'/i% sales tax, as required. 



Skyles Electric Works 

231 E South Whisman Road 
Mountain View, California 94041 
(415) 965-1735 



Visa/Mastercard orders: call tollfrec 
(800) 227-9998 (except California). 
California orders: please call (415) 
965-1735. 



JMCftO 
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On The 
Built-in 
Display 



PET/CBM 2000/3000/4000 Series 
$275.00 * 

Select either SO x 2B or 40 x SS display format 

From the keyboard or program 



Features the same memory map and subroutines from the Basic ROMs [specify 
which version of Basic when ordering] * * , for standard programming. You also 
gain the use of 1D23 extra memory locations in the 40 column mode, or 47 
extra locations in the BO column mode. [These locations are available only to 
machine language programs, or peek S. poke from Basic]. 

Displays the full, original character set, including graphics characters in either 
mode. 

All utility software, firmware, like Toolkit™. Dos Support [Wedge], Extra-mon, etc., 
is compatible in both modes of operation. 

The complete enhancement consists of: 1 dual 24-pin socket [one socket for the 
40 column screen editor, and one for the BO column screen editor], and a circuit 
board that replaces the existing screen RAM. Each circuit board is registered 
to the original owner. There is also an BO column reference ROM that plugs in 
one of the expansion sockets [specify the address when ordering]. An option 
board is available [$2500] that allows the ROM to be used with any other 2K 
ROM, in any of the expansion sockets. 

Available from your local dealer or: 

EXECOM CORP. 

1B01 Polaris Ave. 

Racine, Wl 53404 

Ph. 414-632-1004 

* Plus appropriate installation charges. This requires some circuit modification, 
[available from the factory for $7500 plus shipping] 

* * If power-on message = ### COMMODORE BASIC ### you have 3.0 Basic. 

[Available only for Basic 3.0 & Basic 4.0 at the present]. 

PET™& CBM are trademarks of Commodore Business Machines. 

We will ship via Master Charge, VISA, C.O.D., or pre-paid. 

Toolkit™is a trademark of Palo Alto IC's, Inc. 

Installation may void your Commodore SO day warr. 

The Execom™board is guaranteed for 1 year. 
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PET Vet 



By Loren Wright 



2114 RAM Adaptor 

If you have one of the old PETs with 
6550 RAM chips, you probably have had 
one or more of them fail by now. You 
probably had to pay a high price for the 
replacement, if, in fact, you were able to 
find one. Optimized Data Systems (P.O. 
Box 595, Placentia, CA 92670) offers an 
inexpensive board that plugs into a pair 
of empty 6550 sockets and allows 
substitution of up to half of the 6550s 
with the considerably more common 
and less expensive 2114 RAM chips. 
The board is available in a number of 
versions, from a bare board ($8.95) to an 
assembled version with one 2114 and 
two sockets ($24.95). The board is con- 
veniently laid out and works well. 

PET Power Problems 

Owners of older PETs may have 
experienced various forms of flakiness, 



particularly when additional devices 
draw from the PET's power supplies. 
The universal advice has been simply to 
avoid placing additional loads on the 
PET supplies. The fault, however, is not 
in the capacity of the power supplies, 
but rather in the poor design of the 
power connection to the main logic 
board. The board has a male connector 
consisting of round pins, while the 
female connector has flat spring con- 
tacts — not a very good connection! 
Under normal operation, the whole 
thing heats up and may eventually cause 
loss of contact and a crash. With an ad- 
ditional draw on the supply, the critical 
point is reached more quickly. Jim Yost 
of Somerville, Massachusetts, has come 
up with a simple and cheap solution: 

Identify the two outside wires 
(usually brown) on the female power 
connector. These lead to two 
separate terminals of the power 
transformer. Between these two 
transformer terminals and the posi- 
tive ( + ) terminal of the large elec- 
trolytic capacitor connect two rec- 
tifier diodes (3A, 100V PIV). The 
diode positive terminals should lead 
to the capacitor positive terminal. 
This bypasses the power surges to 
the capacitor. See figure 1 for details. 



REAR OF PET 



ADDITIONAL 
DIODES 




LARGE 

ELECTROLYTIC 

CAPACITOR 



OUTSIDE 
WIRES 



POWER 

CONNECTOR 

TO PET 

MAIN LOGIC BOARD 



Figure Is Installation of diodes (not to scale — not all wires shown). 



Old PETs Live On! 

Duncan Moyer of Auburn, Califor- 
nia, points out that while a SYS 64824 
on the old PET does a system reset, it 
fails to reset the Auxiliary Control 
Register to 0. To get the cassette to work 
properly, you must also POKE 59467,0. 
I have received a number of letters in 
support of the old PET, and I will treat it 
as a respected member of the Commo- 
dore family. 

More on Command-O 

During the course of writing an 8032 
program to process the questionnaires 
included in the July MICRO, I made 
good use of Command-O' s SCROLL and 
"softkey" features. The "softkey" 
saved me from typing lots of repetitive 
lines. It's nice to be able to enter with a 
single keystroke "X= :Y = 
:GOSUB5000" (followed by the appro- 
priate number of back cursors to wind 
up right after the first ' = '). 

In my review of BASIC upgrades 
(36:62), I casually mentioned that the 
FIND command of Command-O had 
been improved. It allows specification of 
a range of lines in which the search will 
occur. Each occurrence causes the line 
found to be listed with the beginning of 
the search string in reverse field. This 
means that if the same string appears 
three times in the same line, then that 
line will be listed three times. 

Be careful when you make correc- 
tions to lines listed by the FIND com- 
mand, though. If the found string is 
within quotes, then the first character 
will stay reversed. This is not a prob- 
lem, unless you happen to hit one of the 
special 8032 control characters. It took 
me about 20 minutes one day to dis- 
cover an embedded reverse 'o' as the 
cause of an unwanted WINDOW 
command! 

Typesetting for the Common Man? 

Type Share (8315 Firestone Blvd., 
Downey, CA 90241) has announced an 
inexpensive typesetting input system 
based on the Commodore VIC-20. The 
announced price is less than $500 in- 
cluding the VIC and software, but does 
not include the video display. Users 
record the input text on cassette for 
transfer to a larger computer for further 
editing/ merging, or the cassette can be 
sent directly to one of the Type Share 
centers. The VIC-based system makes 
typesetting available to a number of 
small volume users, who could not other- 
wise afford to have typesetting done. 

JMCftO 
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we beat the price... 




800„ $779 

WITH ONE YEAR EXTENDED WARRANTY 



A 

ATARI 

Computers 
for people: 



815 DUAL 
DISK DRIVE 

$1199 




ATARI SOFTWARE 



CX401 General Accounting $399 00 

CX402 Accounts Receivable $399.00 

CX403 Inventory Control $399.00 

CX404 Word Processor $1 19.00 

CX405 PILOT $68.00 

CX413 MICROSOFT BASIC $68.00 

CX4101 Invitation to Programming 1 $1 7.00 

CX4102 Kingdom $13.00 

CX4103 Statistics $17.00 

CX4104 Mailing List $17.00 

CX4105 Blackjack $13.00 

CX4106 Invitation to Programming 2 $20.00 

CX4107 Biorhythm $13.00 

CX4108 Hangman $13.00 

CX4109 Graph It $17.00 

CX41 10 Touch Typing $20.00 

CX4111 Space Invaders $17.00 

CX41 12 States & Capitals $13.00 

CX41 14 European Countries S Capitals $13.00 

CX4115 Mortgage 8 Loan Analysis $13.00 

CX41 16 Personal Fitness Prog $59.00 

CX4117 Invitation to Programming 3 $20.00 

CX41 18 Conversational French $45.00 

CX4 1 19 Conversational German $45.00 

CX4120 Conversational Spanish $45.00 

CX4121 Energy Czar $13.00 

CX4125 Conversational Italian $45.00 



CX6001 U.S. History $23.00 

CX6002 U.S Government $23 .00 

CX6003 Supervisory Skills $23.00 

CX6004 World History $23.00 

CX6005 Basic Sociology $23.00 

CX6606 Counseling Proced $23.00 

CX6607 Principal ol Act $23.00 

CX6608 Physics $23.00 

CX6609 Great Classics $23.00 

CX6010 Business Comm $23.00 

CX601 1 Basic Psychology $23 00 

CX6012 Effective Writing $23.00 

CX6014 Principals ol Econ $23.00 

CX6015 Spelling $23.00 

CX6016 Basic Electricity $23.00 

CX601 7 Basic AlgeBra $23.00 

CX8106 Bond Analysis $20.00 

CX8107 Stock Analysis $20.00 

CX8108 Stock Charting $20 00 

CXL4001 Education System Master $21.00 

CXL4002 8asic Computing Language $46.00 

CXL4003 Assembler Editor $46.00 

CXL4004 Basketball $24.00 

CXL4005 Video Easel $24.00 

CXL4006 Super Breakout $30 00 

CXL4007 Music Composer $45.00 

CXL4009 Chess $30.00 

CXL4010 3-D TicTac-Tow $24.00 



CXL4011 Star Raiders $32.00 

CXL4012 Mlssle Command $32.00 

CXL4013 Asteroids $32.00 



CXL4015 TeleLink $20.00 

Compuhome $74.95 

Visicalc $149.00 

Letter Perfect (Word Processor! $1 19.00 

Source $89.00 

Atari* Peripherals: 

400 16K $329.00 

410 Recorder $59.00 

810 Disk Drive $449.00 

815 Disk Drive $1 199.00 

822 Printer $359.00 

825 Printer $629.00 

830 Modem $159.00 

850 Interface $139.00 

Atari* Accessories 

NewDOS2System $2100 

CX70 Light Pen $64.00 

CX30 Paddle $18.00 

CX40 Joy Stick $18 00 

CX853 16K RAM $89.00 

Microtek 16K RAM $75.00 

Microtek 32K RAM $169 00 





CBM8032 $1099 



4016 $799.00 

4032 $999.99 

8096 $1795.00 

CBM4022 Printer $629.00 

Tally 8024 $1699.00 

CBM C2N Cassette Drive $69.00 

CBM4040 Dual Disk Drive $999.00 

CBM8050 Dual Disk Drive $134900 



VIC 20 

$259 



CBM Software 

WordPro3 Plus $199.00 

WordPro4 Plus $299.00 

Commodore Tax Package $399 00 

Visicalc $149.00 

EBS Accts. Rec.llnventory Interactive Syst — $595.00 

BPI General Ledger $329.00 

022 Information System $329.00 

Dow Jones Portfolio $129.00 

Pascal $239.00 

Legal Time Accounting $449.00 

World Craft 80 $289.00 

Word Check $180.00 

Create-ABase $180.00 

Power $89.00 

Socket-2-Me $20.00 

Jinsam Call 



Vic-TV Modual $19.00 

Vic Cassette $69.00 

Vic Disk Drive $ Call 

Vic 6 Pack program $44.00 



Disks 

CX8100 Blank Disk (5) $22.00 

Sycom Blank Disk (10) $29.00 

Maxell Blank Disk (10) $36.00 

Maxell Blank Disk (10) $46.00 

Printers 

Epson MX-70 

Epson MX-80 

Epson MX-80 FT > Call for Prices 

Diablo 630 

Nee 5530 ' $2495 00 

TEC 1500 Starwriter 25cps $1495 00 

TEC 1500 Starwriter 45cps $1995.00 



} 



No Risk, No Deposit On Phone Orders, COD or Credit Card, 
Shipped Same Day You Call * _ 



* on all in stock units 
IN PA. CALL: 717 -323-7921 



(800) 233-8950 



COMPUTER MAILORDER 

501 E. 3RD ST., WILLI AMSPORT, PA 17701 



To Order. 

Prone orders invited (800 number is lor order desk 
onty). Or send check or money order and receive 
free shipping. Pennsylvania residents add 6% 
sales tax. Add 3% lor Visa or M.C. Equipment 
is subject to price change and availability without 
notice. Please call between 1 1 AM & 6 PM. 
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Did you know that the Motorola 68000. not the 6809, is the 
logical successor to the 6502? 

Did you know that you can attach a 68000 processor board 
to your Apple II or PET/CBM for about $600? That such a 
board is available from us? 

Did you know that a four-function floating point package, 
with a logarithm routine, is available in microsoft Apple 
ll/PET format? That the log routine runs over 10 times faster 
than in the 6502? That you can buy a copy of this package 
from us in source form for only $10 plus 50 cents postage? 

Did you know that your Apple II or PET/CBM would make a 
very nice I/O processor for a 68000 CPU? 

A newsletter covering simple 68000 systems and attached 
processors is available from us for $15/6 issues. Send $2.50 
for just the first issue. 

For more information, send an S.A.S.E. to: 
DTACK GROUNDED 
Dept. 101 

1415 E. McFadden St. F 
Santa Ana, California 92705 



^ 




This is an attache style case for carrying and protecting a 
complete ATARI computer system. It will hold the 800 or 400 
computer, disk drive, program recorder and a small printer 
in a variety of combinations. Constructed of the highest 
quality luggage material. Will accommodate equipment in a 
fully operational configuration along with manuals, working 
papers and disks. Never a need to remove equipment from 
case. Simply remove lid, connect power and operate. 

AT 301 Computer case $109.00 

AP 105 12" Monitor & accessory case 99.00 

P 402 825 Printer case 89.00 

Cases also available for Apple, Radio Shack and peripherals. 
Ask at your local computer store or order directly. 



compuTer case company 

5650 INDIAN MOUND CT COLUMBUS. OHIO 43213 1614) 868-9464 



■, 



SPECIAL-This month only!! 



• 



(Please mention this ad when ordering.) 



EHS SOFTWARE 



- PET MAE $169.95 

(Read the rave reviews aboul this Disk-based Macro Assembler 
Text Editor.) 

Graphics Drawing Compiler with purchase of MAE. . . S 10.00 

- APPLE and ATARI MAE $169.95 

Similar features as PET MAE. (Free — either 10 diskettes or 
Mini-Flex diskette file case.) 

- PET Macro Assembler/Editor and Graphics Drawing Compiler. 
Both for $ 55.00 

- Cassette Rabbit for 3.0 Rom PET Computers. High-speed cassette 
I/O. Load and save an 8K program from your cassette deck in 
approximately -30 seconds versus almost 3 minutes without 
Rabbit. Specify memory $ 19.95 

Rom version of Rabbit for 3.0, 4.0 or 8032 $ 49.95 

- TRAP 65 — Use this device to intercept unimplimented opcodes 
and even expand the 6502's instruction set. For practically any 
6502 microcomputer. Super Special $112.50 

- EPROM Board for ATARI Computers. Plugs into slot A or B and 
can accept 2716, 2516, 2532, 2732 type EPROMS. Half ihe 
price that ATARI gets for theirs $ 19.95 



Send mailing label and two 18tf stamps for free EHS Gazette. 
Write for our catalog and spec sheets on our products. 



EHS HARDWARE 

PEDISK (by CGRSI disk drive $550.00 

For COMMODORE computers. The most cost effective way to 
add a disk. MAE will be available for PEDISK Soon. 

VIC Color Computer $265.00 

ATARI 400 16K memory $345.00 

ATARI 800 16K memory $779.00 

EPROM programmer for PET Computers 

(The Branding Iron) $ 75.00 

I ncludes Hardware and Software for programming 2716and 2532 
EPROMS. 

2532 EPROM $ 18.00 

4K byte EPROM. Use them in PET/APPLE/ATARI/SYM 

Starwriter 25 cps printer with tractors. CBM ■ $1690.00. 
APPLE ■ $1645.00 (parallel), $1700.00 (RS232) 

Universal Data System Modem direct connect 300 baud ORG/ 

ANS $169.00 

with auto answer $199.00 

1200 baud $259.00 



ACCESSORIES 

Syncom or Memorex 

5-1/4" diskettes 10 for $30.00 

Mini-Flex diskette file case 

holds 50 - 5-1/4" diskettes $24.95 




Call for prices on Zenith and Super Brain Computers and whatever else you need. 
Eastern House Software 



3239 Linda Drive 
Winston-Salem. N.C. 27106 U.S.A. 

(Please add sufficient Funds for Postage.) 



PHONE ORDERS 

(919)924-2889 

(919) 748-8446 
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BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 



HUDSON DIGITAL ELECTRONICS INC. 



THE TASK* MASTERS 



HDE supports the *TIM, AIM, SYM and KIM (TASK) with a growing line of computer programs and 
peripheral components. All HDE component boards are state-of-the-art 4%" x 6V2", with on board 
regulation of all required voltages, fully compatible with the KIM-4 bus. 



OMNI DISK 65/8 and 65/5 

Single and dual drive 8" and 5 1 /»" disk systems. 
Complete, ready to plug in, bootstrap and run. 
Include HDE's proprietary operating system, 
FODS (File Oriented Disk System). 



DM816-M8A 

An 8K static RAM board tested for a minimum of 
100 hours and warranted for a full 6 months. 



DM816-UB1 

A prototyping card with on-board 5V regulator 
and address selection. You add the application. 



DM81 6-P8 

A 4/8K EPROM card for 2708 or 271 6 circuits. 
On board regulation of all required voltages. 
Supplied without EPROMS. 



DM816-CC15 

A 15 position motherboard mounted in a 19" 
RETMA standard card cage, with power supply. 
KIM, AIM and SYM versions. 



DISK PROGRAM LIBRARY 

Offers exchange of user contributed routines 
and programs for HDE Disk Systems. Contact 
Progressive Computer Software, Inc. for details. 



HDE DISK BASIC 

A full range disk BASIC for KIM based systems. 
Includes PRINT USING, IF . . . THEN . . . ELSE. 
Sequential and random file access and much 
more. $175.00 

HDE ADVANCED INTERACTIVE 
DISASSEMBLER (AID) 

Two pass disassembler assigns labels and con- 
structs source files for any object program. 
Saves multiple files to disk. TIM, AIM, SYM, KIM 
versions. $95.00 

HDE ASSEMBLER 

Advanced, two pass assembler with standard 
mnemonics. KIM, TIM, SYM and KIM cassette 
versions. $75.00 ($80.00 cassette) 

HDE TEXT OUTPUT PROCESSING SYSTEM 
(TOPS) 

A comprehensive text processor with over 30 
commands to format and output letters, docu- 
ments, manuscripts. KIM, TIM and KIM cassette 
versions. $135.00 ($142.50 cassette) 

HDE DYNAMIC DEBUGGING TOOL (DDT) 

Built in assembler/disassembler with program 
controlled single step and dynamic breakpoint 
entry/deletion. TIM, AIM, SYM, KIM AND KIM 
cassette versions. $65.00 ($68.50 cassette) 

HDE COMPREHENSIVE MEMORY TEST 
(CMT) 

Eight separate diagnostic routines for both 
static and dynamic memory. TIM, AIM, SYM, 
KIM and KIM cassette versions. $65.00 ($68.50 
cassette) 



AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



Progressive Computer Software 
405 Corbin Road 
York, PA 1 7403 
(71 7) 845-4954 



Johnson computers 

Box 523 

Medina, Ohio 44256 

(216)725-4560 



Lux Associates 
20 Sunland Drive 
Chico. CA 95926 

(916)343-5033 



Falk-Baker Associates 

382 Franklin Avenue 

Nutley, NJ07110 

(201)661-2430 

Laboratory Microcomputer Consultants 

P.O. Box 84 

East Amherst, NY 14051 

(716)689-7344 



Perry Peripherals 

P.O. Box 924 

Miller Place, NY 11764 

(516)744-6462 
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ASMLST: Full-Sized 
Assembler Listing for AIM 



ASMLST reads an AIM 
20-column assembly listing 
produced by the AIM ROM 
assembler and reformats It into 
a full-sized assembly listing. 



Joel Swank 
25730 Beach Drive 
Rockaway OR 97136 



The AIM 4K ROM assembler is one of 
the most useful features of the AIM. 
You can enter assembler source code in- 
to memory with the AIM editor, assem- 
ble it directly from memory, and store 
the object in memory for quick testing. 
The AIM assembler can also read source 
from any system device and write object 
and assembly listing to any device. 

The listing output of the AIM 
assembler is designed for the AIM on- 
board 20-column printer. Single 
statements are broken into as many as 
three lines for the AIM printer. This for- 
mat is fine for short programs, but 
cumbersome for longer ones, and wastes 
a lot of paper on a TTY or full size 
printer. As the size of the programs I was 
writing increased, I realized that I would 
need full size listings. First I contacted 
6502 software vendors, looking for a 
full-feature AIM compatible assembler. 
The only one I could find came with 
disk systems. So, as a last resort I deci- 
ded to write ASMLST. 

ASMLST reads a listing generated by 
the AIM assembler and constructs a full 
size listing. The format of the listing 
produced is similar to the listing format 
in the AIM monitor program listing 
manual. ASMLST produces a listing 
with six fields. The first field is the four 
character address. This address is taken 
from the AIM listing lines beginning 
with ' = = ' . The address is then updated 
as each object code line is processed. It is 
printed on each line, not just on the 
lines with labels, as with the AIM for- 



Listing 1 


;* ASMLST * 
;ZERO PAGE STORAGE 


- 




JUDEX) EPZ $00 


OUTPUT INDEX 




L0C EPZ $01 .-LOCATION COUNTER 




IXCL EPZ $01 






LOCH EPZ $02 






TEMP EPZ $03 1 


TEMPORARY STORAGE 




CODEM EPZ $04 J 


FIA3 TO FORCE PUTLIN 




EOF EPZ $05 1 


END OF FILE FLAG 




LOCUP EPZ $06 


LOCATION COUNTER UPDATE 




•AIM SUBROUTINES 






; 

CRLF ECU $E9F0 


SEND CRU - TO AOD 




RCHEK ECU $E907 


INTERRUPT CHECK 




VHEREO ECU $E871 


OPEN OUTPUT 




WJEREI ECU $E848 


OPEN INPUT 




INftLL ECU $E993 


GET A CHARACTER 




OUTALL ECU $E9BC 


PUT A CHARACTER 




NUMA ECU $EA46 


PUT A HEX BYTE 




PACK ECU $EA84 


ASCII TO HEX 




DU12 ECU $E511 


TAPE CLOSE ROUTINE 




CCMIN ECU $E1A1 


RETURN TO MONITOR 






EQUATES 








OUTPUT LINE FIELDS 






ADD EPZ $00 


ADDRESS 




CODE EPZ $05 


OBJECT CODE 




IABEL EPZ $0D 


IABEL 




OPCODE EPZ $14 


•OPCODE 




OPER EPZ $18 


■OPERAND 




CCMM EPZ $24 


■COMMENT 




CR EPZ $0D 






IF EPZ $0A 






CTLZ EPZ $1A 






CUTFLG ECU $A413 


;OUTPUT DEVICE 




.' ORG $200 




0200 2048E8 


ASMLST JSR WHEREI ; 


OPEN INPUT DEVICE 


0203 2071E8 


JSR WHEREO i 


OPEN OUTPUT DEVICE 


0206 A905 


Lift #$05 




0208 8503 


STA TEMP j 


SKIP THE FIRST 5 LINES 


020A 208103 


SKLCOP JSR GETLDJ 




020D C603 


DEC TEMP 




020F D0F9 


ENE SKLCOP 




0211 A900 


LDA #$00 


CLEAR LOCATION INCREMENT 


0213 8506 


STA LOCUP 




0215 8505 


STA EOF 


AND END FLAG 


0217 8501 


STA LOCL 


AND LOCATION COUNTER 


0219 8502 


STA LOCH 




021B 20B303 


JSR CLROUT 


INIT OUTPUT BUFFER 


021E 2007E9 


NXTLIN JSR RCHEK 


INTERRUPT? 


0221 A505 


LDA EOF 


AT END? 


0223 D029 


BNE CLOSE 


YES, GO FINISH UP 


0225 208103 


JSR GETLIN 


GET A LINE 

(Continued) 
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mat. The next field is the object code 
field. This field contains to 3 bytes of 
object code generated by the statement. 
The label field is next, followed by the 
opcode and operand fields. Last is the 
comment field. The actual positions of 
these fields are defined by equates in the 
assembly source (see listing 1). 

Because of the format of the AIM 
assembly listing, it is not always possi- 
ble to tell how the source was entered. 
One problem is that all comments are 
printed on a separate line. This means 
that ASMLST cannot tell whether a 
comment was part of the preceding line 
or entered on a separate line. But, if you 
follow a few rules, you can enter your 
source so that you get the desired 
listing. 

If you want a comment to be placed 
at the end of a line in the comment field, 
enter it on that line separated from the 
operand by a blank, or instead, enter it 
in column 1 of the following line. Both 
of these methods generate the same 
listing from the AIM assembler. This is 
true except for comments on the ' = ' 
directive. The AIM print format for the 
'=' directive is different. If the com- 
ment is entered on the same line as the 
' = ' directive, the assembler will insert a 
blank line between the directive and the 
comment. So, if you want a comment 
on an ' = ' directive, you must enter it in 
the first column of the next line. If you 
want a comment to appear on a line by 
itself, you may enter it starting in col- 
umn two or greater. This will generate a 
blank line and the comment will appear 
starting in the label field. A comment 
that follows a comment always appears 
on a line by itself. 

There is also a problem with the data 
assignment directives (.BYTE, .WORD, 
etc.). ASMLST may not be able to keep 
the address field updated properly if the 
NOGEN listing option is used. When 
you use NOGEN, the generated data 
bytes are not printed. ASMLST must 
count these bytes to keep the address 
field updated. To avoid this problem you 
must assemble with the GEN option or 
specify only one operand on each direc- 
tive. 

ASMLST inserts a form feed ($0C) 
when it detects a page break (from the 
.PAGE directive). It deletes the first five 
lines (PASS 1, PASS 2, etc.) of the listing 
and copies "ERROR messages are they 
are. ASMLST is designed to work on 
debugged listings; an error in your pro- 
gram may foul it up. ASMLST 
recognizes the .END directive as the end 
of the listing. 



0228 ADD103 




LDA LBUFI 


,-FIRST CHARACTER 


022B 








022B 


;FIRST CHARACTER DETERMINES ROUTINE 


022B 








022B C920 




CMP ' 


;BLANK? 


022D D003 




BNE NOBL 


;NOPE 


022F 4CB102 




JMP BLHAN 




0232 C93D 


NOBL 


CMP ' = 


.-EQUALS? 


0234 D003 




BNE NOEQ 


;NOPE 


0236 4CF102 




JMP EQHAN 




0239 C93B 


NOEQ 


CMP '; 


.-SEMICOLON? 


023B D003 




BNE NOCCM 


;NOPE 


023D 4C1003 




JMP COMHAN 




0240 C95F 


NOCCM 


CMP #$5F 


; UNDERSCORE? 


0242 D003 




BNE NOPAG 


;NOPE 


0244 4C2703 




JMP PAGHAN 




0247 C92A 


NOPAG 


CMP '* 


;ASTERISK? 


0249 D029 




BNE HEXHAN 


;NO, MUST BE HEX CODE 


024B 4C4503 




JMP ASTHAN 




024E 








024E 


;CLOSE 


: PUT LAST LINES 


, CLOSE TAPE, 


024E 




AND RETURN TO 


MONITOR 


024E 209503 


CLOSE 


JSR PUTLM 


;SEND CURRENT LINE 


0251 208103 




JSR GETLIN 


;GET LAST LINE 


0254 A20D 




LDX #LABEL 


;COPY TO OUTPUT BUFFER 


0256 206803 




JSR COPOVR 




0259 209503 




JSR PUTLIN 


,-SEND IT 


025C A91A 




LDA ICTLZ 


;SEND A CONTROL-Z 


025E 20BCE9 




JSR OUTALL 




0261 20F0E9 




JSR CRLF 




0264 20F0E9 




JSR CRLF 


;AND A COUPLA CRLFS 


0267 AD13A4 




LDA OUTFLG 


;CHECK OUTPUT DEVICE 


026A C954 




CMP 'T 


,-IT IS TAPE? 


026C D003 




BNE NOTAP 


;NO 


026E 201 1E5 




JSR DU12 


;YES, CLOSE FILE 


0271 4CA1E1 


NOTAP 


JMP COMIN 


;RETURN TO MONITOR 


0274 








0274 


;END OF MAINLINE 




0274 








0274 


;THE FOLLOWING 6 ROUTINES EACH HANDLE 1 TYPE 


0274 


OF INPUT LINE 




0274 








0274 


;HEXHAN : PROCESS LINE OF OBJECT CODE 


0274 








0274 A504 


HEXHAN 


LDA CODED) 


,-BEEN HERE ON THIS STMT? 


0276 D006 




BNE PUTC 


rYES 


0278 A500 




LDA INDEXO 


;GET OUTPUT INDEX 


027A C915 




CMP #OPCODE+l 


; OPCODE PRESENT? 


027C 9003 




BCC COPHEX 


;NO, DON'T SEND 


027E 209503 


pure 


JSR PUTLIN 


;YES, PUT CURRENT LINE 


0281 AOOO 


COPHEX LDY #$00 


.-BEGINNING OF INPUT 


0283 A205 




LDX #CODE 


.■OUTPUT INDEX 


0285 8604 




STX CODEIN 


.-SHOW WE BEEN HERE 


0287 B9D103 


CHLUP 


LDA LBUFI, Y 


;GET A CHAR 


028A C90D 




CMP #CR 


.-END OF LINE? 


028C F018 




BEQ PUTHEX 


;YES, GO SEND 


028E C920 




CMP ' 


,- SPACE? 


0290 F007 




BEQ SKIPSP 


,-YES, GO FINISH LINE 


0292 9D5104 




STA LBUFO.X 


.-COPY A CHAR 


0295 C8 




ray 


;BUMP POINTERS 


0296 E8 




rax 




0297 10EE 




BPL CHLUP 


.-NEXT CHARACTER 


0299 206203 


SKIPSP JSR UPLOC 


.-UPDATE LOCATION COUNTER 


029C A007 




LDY #?07 




029E A214 


COPCOD LDX #OPCODE 


; OPCODE OFFSET 


02A0 206A03 




JSR COPOV2 


.-COPY TO OUTPUT BUFF 


02A3 4C1E02 




JMP NXTLIN 




02A6 206203 


PUTHEX JSR UPLOC 


,- UPDATE LOCATION COUNTER 


02A9 8600 




STX INDEXO 


,-MARK END OF LINE 


02AB 209503 




JSR PUTLIN 


,-SEND LINE 


02AE 4C1E02 




JMP NXTLIN 


.-NEXT LINE 


02B1 








02B1 


!• BLHAN 


: PROCESS LINE STARTING WITH BLANK 


02B1 








02B1 A500 


BLHAN 


LDA INDEXO 


.-WHERE IN OUTPUT LINE? 


02B3 C90D 




CMP #LABEL 


.-LABEL PRESENT? 


02B5 9004 




BCC NEWL 


,-NO, SEND LINE 


02B7 C915 




CMP #OPCODE+l 


;OPCODE PRESENT? 

(Continued) 
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02B9 9003 




BCC SCANC 8 


NO, DON'T SEND 


02BB 209503 


NEWL 


JSR PUTLIN } 


SEND CURRENT LINE 


02BE A001 


SCANC 


LOT #$01 t 


START SEARCH AT COLUMN 1 


02C0 B9D103 


BLSCH 


LEA LBUFI.Y J 


SCAN TO FIRST NON-BLANK 


02C3 C90D 




CMP #CR S 


WATCH FOR END 


02C5 F01C 




BEQ EMPLIN ; 


NULL LINE 


02C7 C920 




CMP ' ; 


BIANK? 


02C9 D003 




BNE nOTCHK J 


NO, GO CHECK FOR DOT 


02CB C8 




INY i 


NEXT CHAR 


02CC 10F2 




BPL BLSCH 




02CE C92E 


DOTCHK 


CMP '. : 


CHECK FOR END STMT 


02D0 D009 




BNE BLCOP ; 


NO 


02D2 B9D203 




LEA LBUFI+l.Y ; 


GOT A DIRECTIVE, IS IT .END? 


02D5 C945 




CMP 'E 




02D7 D002 




BNE BLCOP 1 


NO 


02D9 8505 




STA EOF 1 


YES, FLAG END OF FILE 


02DB A214 


BLCOP 


LDX tOPCODE i 


OUTPUT INDEX 


02DD 206A03 




JSR C0P0V2 


COPY REST OF LINE 


02E0 4C1E02 




JMP NXTLIN , 


NEXT LINE 


02E3 209503 


EMPLIN JSR PUTLIN 


SEND LINE 


02E6 A920 




LDA ' 




02E8 20BCE9 




JSR CUTALL 




02EB 20F0E9 




JSR CRLF 


AND AN EMPTY LINE 


02EE 4C1E02 




JMP NXTLIN 


NEXT LINE 


02F1 








02F1 


•EQHAN 


: PROCESS A LINE BEGINNING WITH • = " 


02F1 








02F1 209503 


EQHAN 


JSR PUTLIN 


SEND LINE IF ANY 


02F4 A002 




LDY #$02 


POINT TO ADDRESS 


02F6 205303 




JSR GETHEX 


CONVERT HIGH BYTE 


02F9 8502 




STA LOCH 


SAVE IT IN LOCATION COUNTER 


02FB 205303 




JSR GETHEX 


CONVERT LOW BYTE 


02FE 8501 




STA IOCL 


■SAVE 


0300 B9D103 




LDA LBUFI.Y 


-ANY MORE? 


0303 C90D 




CMP #CR 




0305 F006 




BEQ JNEXT1 




0307 C8 




INY 




0308 A20D 




LDX #LABEL 


•PREPARE FOR LABEL 


030A 206A03 


COPIAB JSR COPOV2 


•COPY IABEL 


030D 4C1E02 


JNEXT1 


JMP NXTLIN 


•NEXT LINE 


0310 








0310 


•COMHAN : PROCESS A COMMENT 




0310 








0310 A600 


COMHAN LDX INDEXO 


.-ANY LINE IN PROCESS 


0312 F008 




BEQ CCMLAB 


;N0 


0314 E024 




CPX #COMM 


;PAST COMMENT FIELD? 


0316 B006 




BCS CCMCOP 


;YES, USE VALUE 


0318 A224 




LDX #CCMM 


;NO, COPY TO COMMENT FIELD 


031A D002 




BNE CCMCOP 




031C A20D 


CCMLAB LDX #LABEL 


.-COPY TO LABEL 


031 E 206803 


CCMCOP JSR COPOVR 




0321 209503 




JSR PUTLIN 


.•SEND LINE 


0324 4C1E02 




JMP NXTLIN 




0327 








0327 


,-PAGHAN : PROCESS A NEW PAG 


E 


0327 








0327 209503 


PAGHAN JSI ; 


;SEND CURRENT LINE 


032A A90C 




LDA #$0C 


.-SEND A FORM FEED 


032C 20BCE9 




JSR OUTALL 




032F A20D 




LDX #1ABEL 


;COPY UNDERSCORES TO IABEL 


0331 206803 




JSR COPOVR 




0334 209503 




JSR PUTLIN 


;SEND IT 


0337 208103 




JSR GETLIN 


.-GET TITLE 


033A A20D 




LDX = LABEL 


;COPY TO OUTPUT LINE 


033C 206803 




JSR COPOVR 




033F 209503 




JSR PUTLIN 


.-SEND IT 


0342 4C1E02 




JMP NXTLIN 


,-NEXT LINE 


0345 








0345 


;ASTHAN : PROCESS ERROR STA 


TEMENT 


0345 








0345 209503 


ASTHAN JSR PUTLIN 


•SEND CURRENT LINE 


0348 A205 




LDX #CODE 




034A 206803 




JSR COPOVR 


•COPY TO OUTPUT BUFF 


034D 209503 




JSR PUTLIN 


•SEND IT 


0350 4C1E02 




JMP NXTLIN 




0353 








0353 








0353 


.•SUBROUTINES FOLLOW 










(Continued) 



ASMLST inputs an AIM assembly 
listing from the AID (Active Input 
Device) and outputs the new listing to 
the AOD (Active Output Device) . Start 
ASMLST at $200. You will receive the 
Standard DM= and OUT= prompts for 
the input and output devices. You can 
input from tape and send the output to a 
printer through the user port or to a TTY 
or CRT through the AIM TTY port. You 
can also input from tape and output to 
tape, if you have two remote controlled 
tape recorders. For long listings you may 
want to partition the listing output with 
the LIST and NOLIST Options. This is 
fine as long as you are sure that the 
.END statement is listed so that 
ASMLST can recognize the end of the 
listing. 

ASMLST works if you have a full 
sized printer or terminal, but what 
about those of us with only the AIM 
20-column printer? Help is available 
with 'SPLIT' program, which allows the 
AIM printer to print listings up 80 
characters wide. It inputs the output 
from ASMLST and splits it into 
20-column sections for printing on the 
AIM onboard printer. You then cut and 
paste to create a full width listing. Ex- 
ecute SPLIT at $200 and it will first pro- 
mpt the section to be printed. Each sec- 
tion is 20 columns wide and numbered 1 
to 4. Section 1 is columns 1-20, section 
2 is columns 21-40, and so on. SPLIT 
then issues the standard IN= and 
OUT = prompts. The input file must be 
read once to print each section. The 
number of sections allowed can be in- 
creased to 7, simply by changing the 
value in the compare instruction at 
$221. The size of each section is con- 
trolled by the value assigned to the label 
'SIZE'. If you would like to use ASMLST 
with SPLIT, you may want to change 
the equates in ASMLST for the output 
line fields as follows: 



ADD 


= 


CODE 


= 5 


LABEL 


= 12 


OPCODE 


= 19 


OPER 


= 23 


COMM 


= 31 



ASMLST then produces a listing for- 
mat that will fit into 40 columns. This 
leaves only 10 columns for the com- 
ment field. The 40-column format 
makes the most efficient use of two 
passes of SPLIT On the AIM printer. 
ASMLST and SPLIT are especially 
valuable if you want to publish a pro- 
gram in a magazine or newsletter. The 
reader will appreciate the increased 
readability of your listing. You can also 
use SPLIT to print BASIC files. In fact 
any ASCII file that ends with a Control- 
Z can be printed in sections with SPLIT. 
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ins 




0353 








. jji JuTjilmu^j 




0353 










1 Jyffi^^Sttti. wJ ^^^ 




0353 
0353 
0353 B9D103 


;GETHEX : GET A BYTE OF ASCII HEX FROM INPUT LINE 
GETHEX LDA LBUFI.Y ;GET HIGH NYBBLE 


i 










0356 2084EA 


JSR PACK 


.-CONVERT TO BINARY 






\ \ w 




0359 C8 


INY 








/^. 1% V 




035A B9D103 


LDA LBUFI.Y 


.-GET LO NYBBLE 






u^JV *^ 




035D 2084EA 


JSR PACK 


.-CONVERT TO BIN 






^ i^ lr\ 




0360 C8 


INY 








J /WJ 




0361 60 


RTS 








•w ti V 




0362 














0362 
0362 


;UPLOC ; SAVE LOCATION COUNTER INCREMENT 








0362 C8 


UPLOC INY 


.-BUMP POINTER 








0363 98 

0364 4A 


TYA 
LSR 


;DIVIDE BY 2 








0365 8506 
0367 60 


STA LCCUP 
RTS 


;SAVE 








0368 
0368 


;COPOVER : COPY ALL OR. PART OF THE INPUT LINE TO THE 








0368 
0368 
0368 AOOO 


; OUTPUT BUFFER AT OFFSET IN X 

COPOVR LDY #$00 .-BEGINNING OF INPUT LINE 








036A 


;ENTRY TO COPY PARTIAL LINE 








036A B9D103 
036D C90D 


COPOV2 LDA LBUFI.Y 
CMP #CR 


,-GET A CHAR 
.-END? 








036F FOOD 


BEQ COPOUT 


,-YES, QUIT 








0371 C93D 


CMP ' = 


;CHECK FOR ' = ' DIRECTIVE 








0373 D002 


BNE STOCH 


,-NOPE 








0375 8504 


STA CODEIN 


;REMEMBER 








0377 9D5104 
037A E8 
037B C8 


STOCH STA LBUFO.X 
INX 
INY 


.-STORE IN OUTPUT BUFFER 

.-NEXT 

.-NEXT 








037C 10EC 


BPL COPOV2 










037E 8600 
0380 60 
0381 


COPOUT STX INDEXO 
RTS 


,-SAVE LAST 










0381 
0381 


,-GETLIN : GET ONE LINE 


INTO INPUT BUFFER 








\ 




0381 AOOO 


GETLIN LDY #$00 


.-BEGINNING 


w 


^^ fiiiin "^^ 


0383 2093E9 


GETCHR JSR INALL 


,-GET A CHAR 




r^ UIIIU ^^ 


0386 C90A 


CMP #LF 


;LDJE FEED? 




s I 


0388 F0F9 


BEQ GETCHR 


;YES, IGNORE IT 










038A 99D103 


STA LBUFI.Y 


,-SAVE 










038D C90D 


CMP #CR 


;END? 






fftfHEHITIEIf* 




038F F003 


BEQ GOTLIN 


;YES, QUTT 






wlflElll ' rib 




0391 C8 


INY 












0392 10EF 


BPL GETCHR 


,-NEXT CHAR 






NEW & USED SYSTEMS 




0394 60 
0395 
0395 
0395 

0395 A500 


GOTLIN RTS 

;PUTLIN : SEND OUTPUT 

PUTLIN LDA INDEXO 


BUFFER TO OUTPUT DEVICE 
.-ANYTHING THERE? 






• HARDWARE 




0397 F037 
0399 A502 
039B 2046EA 


BEQ NOPUT 
LDA LOCH 
JSR NOMA 


,-NO, SKIPPIT 

,-GET HI BYTE OF LCC COUNTER 

.-SEND TO OUTPUT 






• SOFTWARE 




039E A501 
03A0 2046EA 
03A3 A204 


LDA LOCL 
JSR NUMA 
LDX #$04 


,-GET LO BYTE 
,-SEND IT 
;INIT INDEX 






•PARTS 




03A5 BD5104 


PUTCHR LDA LBUFO.X 


;GET A CHAR 








03A8 20BCE9 


JSR OUTALL 


,-SEND IT 










03AB E8 


INX 












03AC E400 


CPX INDEXO 


;END OF LINE? 




•ACCESSORIES 




03AE 90F5 
03B0 20F0E9 
03B3 A27F 
03B5 A920 
03B7 9D5104 


BCC PUTCHR 
JSR CRLF 

CLROUT LDX #$7F 
LDA ' 

CLRLUP STA LBUFO.X 


,-NO 

; TERMINATE LINE 

jCLEAR OUTPUT BUFFER 






■SERVICE AVAILABLE- 




03BA CA 
03BB 10FA 
03BD A506 


DEX 

BPL CLRLUP 
LDA LCCUP 


,-UPDATE LOCATION COUNTER 






I SUflSET ELEETTOfliCS 




03BF 18 
03C0 6501 


CLC 

ADC LCCL 








2254 TARAVAL ST. 




03C2 8501 
03C4 9002 


STA LOCL 
BCC NOCY 




J 




1 SAN FRANCISCO, CA 94116 




03C6 E602 


INC DXH 






V (415)665-8330 ^ 


03C8 A900 


NOCY LDA #$00 


;CLEAR DATA 












(Continued) 
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03CA 8506 

03CC 8500 

03CE 8504 

03D0 60 

03D1 

03D1 

03D1 

0A51 

0AD1 

04D1 



STA LOCUP 
STA INDEXO 
STA CODEIN 
NOPUT RTS 



BUFFERS 



LBUFI 
LBUFO 



DFS $80 
DFS $80 

END 



Listing 2 


;* SPLIT * 
;ZERO PW3E STORftGE 






COUNT EPZ $00 


CHARACTER COUNT 




SECTON EPZ $01 


CURRENT SECTION 




;AIM SUBROUTINES 






BLANK EQU $E83E 


SEND BLANK TO D/P 




REDOUT EQU $E973 


INPUT AN ASCII CHAR 




CRLF EQU $E9F0 


SEND CRLF TO ADD 




RCHEK EQU $E907 


INTERRUPT CHECK 




WHEREO EQU $E871 


OPEN OUTPUT 




WHEREI EQU $E848 


OPEN INPUT 




INALL EQU $E993 


GET A CHARACTER 




OUTALL EQU $E9BC 


PUT A CHARACTER 




CKEROO EQU $E394 


DISPLAY 'ERROR' 




OUTPUT EQU $E97A 


SEND TO DISPLAY 




DU12 EOU $E511 


TAPE CLOSE ROUTINE 




CCMIN EQU $E1A1 


•RETURN TO MONITOR 




.•EQUATES 






CR EQU $0D 






CTLZ EQU $1A 






SIZE EQU $14 






LF EQU $0A 






CUTFLG EQU $A413 






ORG $0200 






OBJ $0800 




0200 A000 


SPLIT LDY #$00 ; 


INIT INDEX 


0202 B9AF02 


MSGLUP LDA MESG.Y ; 


GET A CHAR 


0205 F006 


BEQ GSPLIT ; 


QUIT ON ZERO 


0207 207AE9 


JSR OUTPUT } 


DISPLAY IT 


020A C8 


INY 




020B 10F5 


BPL MSGLUP 1 


NEXT 


020D 2073E9 


GSPLIT JSR REDOUT J 


GET REPLY 


0210 C931 


CMP '1 1 


LEGAL (1 TO 4)7 


0212 9004 


BCC BADNUM j 


NO 


0214 C935 


CMP '5 




0216 9009 


BCC GCODNM i 


YES 


0218 2094E3 


BADNUM JSR CKEROO ! 


PRINT ERROR MSG 


021B 20F0E9 


JSR CRLF 




021E 4C0002 


JMP SPLIT i 


TRY AGAIN 


0221 2907 


GCODNM AND #$07 ; 


CLEAR HI BYTES 


0223 8501 


STA SECTON j 


SAVE IT 


0225 203EE8 


JSR BLANK 




0228 2048E8 


JSR WHEREI 


OPEN INPUT 


022B 2071E8 


JSR WHEREO J 


OPEN OUTPUT 


022E 205802 


NXTLIN JSR GETLIN 


GET A LINE FROM INPUT DEVICE 


0231 B009 


BCS FIN 


QUIT ON CTLZ 


0233 209502 


JSR SPLCHK 


CALCULATE SPLIT 


0236 207B02 


JSR PUTLIN 


SEND LINE 


0239 4C2E02 


JMP NXTLIN 


GET ANOTHER LINE 


023C AD13A4 


FIN LDA OUTFLG 


CHECK OUTPUT DEVICE 


023F C950 


CMP 'P 


PRINTER? 


0241 F012 


BEQ NOTAP 


■YES SKIP EOF MARK 


0243 A91A 


LDA #CTLZ 


•SEND A CONTROL-Z 


0245 20BCE9 


JSR OUTALL 




0248 20F0E9 


JSR CRLF 




024B 20F0E9 


JSR CRLF 


•AND 2 CRLFS 


024E C954 


CMP 'T 


;IS IT TAPE? 


0250 D003 


BNE NOTAP 


rNO 


0252 201 1E5 


JSR DU12 


•YES, CLOSE FILE 


0255 4CA1E1 


NOTAP JMP CCMIN 


rRETURN TO MONITOR 


0258 


;END OF MAINLINE 




0258 


; SUBROUTINES FOLLOW 




0258 






0258 


;GETLIN : GET ONE LINE INTC 


INPUT BUFFER (Continued) 




TAKE 




Unique Data Systems has. 
We've taken Rockwell's AIM 
65 Microcomputer, packaged 
it in a professional enclosure 
and turned it into a versatile, 
higher capacity microcomputer 
system. Complete with a 
memory-l/O board, modem 
board or wire wrap proto- 
typing board, power supply, 
cables and connectors. It 
makes the AIM 65 a joy to 
work with, and there's even 
space inside for your own 
special circuitry. We'll sell 
you the whole package or just 
the bits and pieces you need 
for your application. We're 
AIM 65 specialists. We're 
Unique Data Systems. 
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Unique Data Systems 

15041 Moran Street 
Westminster, CA 92603 

(714)895-3455 
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FOR YOUR APPLE 






LANGUAGE SYSTEM 




APPLESOFT: 30.3 MIN. 
MICROSPEED: 3.9 MIN. 



z^^l ■ tpi f PAKwiF'; iTTr^^B 


^Pr I f |l .^^| cie sal.es 




Jl 

1" 












ftr'rj'-frrj ^B 


E^^l£< ^, 








iiiliBKrk 




1 


1 **- .TlTft'hlTI ^E '^■i*.. 












^^. ' ""■ K 




B^^a-_ 



r "° ' L - Vj ' • TIMES FASTER 

THAN APPLESOFT 
MOST 

POWERFUL: M ° A R N E B p A °sr c n 

PASCAL OR FORTRAN 

EXPANDABLE: ^^ BASED 
CREATIVE: ^SIST 0WN . 
USER-FRIENDLY: ^J^n 




0258 
0258 
025A 
025C 
025F 
0260 
0262 
0265 
0267 
0269 
026B 
026D 
0270 
0272 
0274 
0275 
0277 
0278 
0279 
027A 
027B 
027B 
027B 
027B 
027D 
027F 
0282 
0284 
0286 
0289 
028A 
028C 
028E 
0291 
0294 
0295 
0295 
0295 
0295 
0297 
0299 
029A 
029C 
029E 
02A0 
02A3 
02A5 
02A7 
02A8 
02AA 
02AC 
02AE 
02AF 
02B2 
02B5 
02B7 
02B8 
02B8 
0938 



A080 

A920 

99B802 

88 

DOFA 

2093E9 

C90A 

F0F9 

C91A 

FO0C 

99B802 

C90D 

F003 

C8 

10EB 

18 

60 

38 

60 



A914 

8500 

B9B802 

C90D 

F008 

20BCE9 

C8 

C600 

D0F1 

2007E9 

20FOE9 

60 



A601 

A000 

CA 

F012 

A914 

8500 

B9B802 

C90D 

F007 

C8 

C600 

D0F4 

FOEB 

60 

534543 

54494F 

4E3D. 

00 



#$80 

LBUF.Y 

CLRLUP 

INALL 

#LF 

GETCHR 

#CTLZ 

Z0UT 

LBUF.Y 

#CR 

GOTLDJ 

GETCHR 



GETLIN LDY 
LDA 

CLRLUP STA 
DEY 
BNE 

GETCHR JSR 
CMP 
BEQ 
CMP 
BEQ 
OTA 
CMP 
BEQ 
INY 
BPL 

GOTLTJJ CLC 
RTS 

ZOUT SEC 
RTS 



PUTLIN : SEND OUTPUT BUFFER TO OUTPUT DEVICE 



; CLEAR BUFFER 



GET A CHAR 

LINE FEED? 

YES, IGNORE IT 

END OF FILE? 

YES 

SAVE 

END? 

YES, QUIT 



.•NEXT CHAR 



PUTLIN LDA #SIZE 
STA COUNT 

PRLUP LDA LBUF.Y 
CMP *CR 
BEQ EOL 
JSR OUTALL 
INY 

DEC COUNT 
BNE PRLUP 

EOL JSR RCHEK 
JSR CRLF 
RTS 



,-INIT CHAR COUNT 

,-GET A CHARACTER 
;END OF LINE? 
;YES 



COUNT IT 

CONTINUE UNTIL SIZE 
CHECK FOR INTERRUPT 
END LINE 



SPLCHK : SET Y FOR PROPER SECTION OF LISTING 



SPLCHK LDX 
LDY 

SPLUP1 DEX 
BEQ 
LDA 
STA 

SPLUP2 LDA 
CMP 
BEQ 
INY 
DEC 
BNE 
BEQ 

SPOUT RTS 

MESG ASC 



SECTON 
#$O0 

SPOUT 

#SIZE 

COUNT 

LBUF.Y 

#CR 

SPOUT 

COUNT 

SPLUP2 

SPLUP1 

'SECTION=' 



GET SECTION NUMBER 

BEGINNING OF LINE 

COUNT SECTION 

DUN 

GET LDJESIZE 

GET A CHAR 
END OF LINE? 
YES, QUIT 

;END OF SECTION? 

;NO, GET ANOTHER CHAR 

;YES, TRY NEXT SECTION 



HEX 00 
.•BUFFER 

LBUF DFS $80 
END 









i 



REQUIRES 
48K APPLE II or 11+ SINGLE DISK 

SEE YOUR DEALEROR_CONTACT: 

I " " _ . . H 

. applied analytics incorporated 

8910 Btookndge Dr.. Suite 803. Upper Marlboro. Md. 20870 
(301) 627-6650 
l*m Interested: Please Send 
D 160 Page Manual '35.00 
D Detailed Information 

Name 

Address 

City 

State Zip 



Note: When the AIM assembler 
listing is directed to tape, the assembler 
docs not properly close the file at the 
end of the assembly: This will cause the 
last block of data to never be written. To 
circumvent this problem you must run 
one of the following programs immedi- 
ately after the assembly is finished. 

If you are using any device EXCEPT 
tape for the source input, then execute 
the following routine: 

CLD 

JSR E511 (close tape file) 

JMP E1A1 (return to AIM) 



If you arc using tape for both source 
input and listing output, execute the 
following program: 



CLD 

LDA #54 
STAA412 

STAA413 
JSR E511 
JMP E1A1 



(move T to INFLG 

and OUTFLG so 
alternate buffer 
will be used.) 
(close tape file) 
(return to AIM) 



Either of these programs can be lo- 
cated in any unused spot in memory and 
can be executed with the GO command. 
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AIM-65/SYM-PET-KIM-6800 

Universal Interface Board Converts AIM-65/SYM 
Into Professional Data Logger 



MINI MOTHER 
BOARD 



ADDRESS 

SELECTION 

(CLOCK. MUX 

A/D) 




16 CHANNEL- 
MUX 



BANK SELECT — 
ADDRESS 
(MEMORY) 



16 A/D INPUTS 



950 N. HAGUE AVE.. COLUMBUS, OHIO 43204 U.S.A. 
PHONE: (614) 488-6176 TELEX: 246514 



(Also connects to PET or KIM with adapter cable. 
Adaptable to other 6502 and 6800 systems) 

CONTAINS: 

* 12 bits, 16 channels, fast A/D converter 

* space for additional 16K RAM memory or 32K 
EPROM (or combination) 

* real time clock/calendar with real time interrupt 
capability and 10-year lithium battery backup 

* plugs directly into AIM-65 expansion connector 
with the help of a mini-mother board which 
supports up to three interface boards 

* supplied with supportive demonstration and 
control programs 

AVAILABLE MODELS: 

* IB-902 Additional Memory 

Space (only) $ 390.00 

* IB-902-A Calendar/Clock plus 

memory space $ 690.00 

* IB-902-B A/D (12 bits. 16 channels 

plus memory space) $ 960.00 

* IB-902-AB A/D, plus memory space 

and calendar/clock $1,270.00 

Mini mother board to support up to three (3) 

i nterface boards $65.00 

Quantity Discounts Available 



I 



_::-'i|n».«iW F'| 




i\\^twf."^r* 



BETA 32K BYTE EXPANDABLE RAM FOR 

6502 AND 6800 SYSTEMS 

AIM 65 KIM SYM PET S44-BUS 

• Plug compatible with the AIM-65/SYM expan- 
sion connector by using a right angle connec- 
tor (supplied). 

• Mernorv board edge connector plugs into the 
6800 S44 bus. 

• Connects to PET using an adaptor cable. 

• Uses +5V only, supplied from the host com- 
puter. 

• Full documentation. jAssembled and tested 
boards are guaranteed for one full year. 
Purchase price is fully refundable if board is 
returned undamaged within 14 days. 

Assembled with 32K RAM $349.00 

& Tested wh)h 16K RAM 329.00 

Bare board, manual & hard-to-get parts... 99.00 
PET interface kit. Connects the 32K RAM board 
toa4Kor8KPET $ 69.00 



Sec our full page ad in BYTE and INTERFACE 
AGE. 



wabash 




8" or 5Vi" flexible diskettes certified 100« 

error free with manufacturers 5 year limited 
warranty on all 8" media. Soft sectored in tilt- 
back" boxes of 10. 5'/*" available in 10 Sector. 
(Add $3.00 jar plastic library cases) 

8" single sided, single density $29.95 

8" single sided, double density 37.95 

8" double sided, double density 48.95 

5W" single sided, single density 27.95 

5 ] A" single sided, double density 29.95 

'Tilt-Back is a trademark of Wabash, Inc. 

8" DISK DRIVES 

Sfnigarl80IR $390.00 

NEC FD1160 (double sided) 595.00 

Memorex MRX-I01 8" Winchester style, hard 
disk drive, 10 megabytes $2,000.00 



$29.00 



16 K MEMORY 
EXPANSION KIT 

For Apple, TRS-80 keyboard, Exidy. and all 
other systems using 4116 dynamic rams or 
equivalent. All IC's are prime Mitsubishi MK 
4116-3. 

• 200 NSEC access, 375 NSEC cycle 

• Burned-in and fully tested 

• 1 full year parts replacement guarantee 

ROCKWELL AIM 65 




AIM 65 with IK ram $425.00 

AIM 65 with 4K ram 485.00 

AIM power supply 125.00 

Professional AIM enclosure 169.00 

Budget AIM enclosure 50.00 

KIM enclosure 40.00 

SYM enclosure 30.00 



TERMS: Minimum order $15.00. Minimum 
shipping and handling $3.00. Calif, residents 
add 6% sales lax. Cash, checks. Mastercard, 
Visa and purchase orders from t/ualified firms 
and institutions are accepted. Product availabili- 
ty and pricing are subject to change without 
notice. 

INTERNATIONAL ORDERS: Add 15% to pur- 
chase price for all orders. Minimum shipping 
charge is $20.00. Orders with insufficient funds 
will be delayed. Excess funds will be returned 
with your order. All prices are U.S. only. 



compuTCR Devices 
1230 w.couinj flue. 

ORAnGE, Cfl 99668 
(714)633-7980 
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space 



Used at NASA, 

Kennedy Space Center 

With Multiple Applications Related 

to the Columbia Space Shuttle Project 



IRY WELCOME. 





age 



micro 



oftware* 
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JINI MICRO-SYSTEMS, Inc. 

DATABASE MANAGEMENT SYSTEM DESIGN 

BOX 274 KINGSBRIDGE STN., RIVERDALE, NY. 10463 (212) 796-6200 



/MCftO 

New Publications 



Mike Rowe 
New Publications 
34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 



6809 

CHROMASETTE Magazine is a monthly 
issued on cassette tape and devoted en- 
tirely to the TRS-80 Extended BASIC 
Color Computer. The first issue appeared 
in July 1981. Each monthly tape con- 
tains six to eight programs that directly 
load and run on the color computer. 
They include games, tutorials, utilities, 
and application programs by various 
authors. The same publisher issues 
CLOAD Magazine, for the TRS-80 
Models 1 and IE. Subscriptions are 
available for one year ($45.00) or half-a- 
year ($25.00) from CHROMASETTE 
Magazine, P.O. Box 1087, Santa Bar- 
bara, California 93102. 



Atari 

The Atari Assembler by Don Inman and 
Kurt Inman. Reston Publishing Com- 
pany, Inc. (Reston, Virginia), 1981, xii, 
270 pages, 78 illustrations, 6V* x 9M 
inches. 

ISBN: 0-8359-0237-4 (cloth) $14.95 

ISBN: 0-8359-0236-6 (paper) $ 9.95 

This is an introduction to assembly 
language programming for use with the 
Atari Assembler Cartridge. The book is 
written for the beginning assembly 
language programmer who has some 
knowledge of BASIC. 

CONTENTS: Introduction— Computer 
Architecture; Review of BASIC; Graphics 
Keywords. Machine Language from 
BASIC— Binary Number Patterns; Hex- 
adecimal Notation; Hexadecimal-to- 
Decimal Conversion; How the Machine 
Language Program Works; Summary; Exer- 
cises; Answers. Memory Use— Atari 
Memory Map; How BASIC Finds the 
Machine Language Program; Passing 
Variables to Machine Language Subroutine; 
Using the One-Variable Program,- Passing 
More Than One Variable; A Machine 
Language Loop; New Instructions Used; 
Tracing Through the Subroutine; Summary; 



Exercises; Answers. Getting Started with 
the Assembler— The Writer/Editor; The 
Assembler Program; Executing the Machine 
Language Program— The Debugger; Sum- 
mary; Exercises; Answers. Special-Purpose 
Registers and Addressing Modes— The 
Accumulator; the X and Y Registers; The 
Processor Status Register; The Stack Pointer 
Register; Addressing, Modes; Summary; 
Exercises; Answers. Branching Out— Ex- 
amples Using Forward Branches; Examples 
Using Backward Branches; Using the Carry 
Flag; Using the Zero Flag; Using the 
Negative Flag; The Overflow Flag; Sum- 
mary; Exercises; Answers. Assembler 
Review— Source Program Format; Methods 
to Use Operands; The Assembler Writer/ 
Editor Mode; The Debug Mode; Exercises; 
Answers. Designing a Program — Absolute 
Indexed Addressing; Using the Add Five 
Pairs of Numbers Program; Using the Add 
Ten Program; A Variation of the Add Ten 
Program; Yet Another Variation; Summary; 
Exercises; Answers. Addition and 
Subtraction— Two-Byte Addition; Two Pro- 
grams in Memory; Two-Byte Subtraction; 
Negative Numbers; Multiple-Byte Addition 
and Subtraction; Decimal Arithmetic; Sum- 
mary; Exercises; Answers. Shift and 
Rotate— Arithmetic Shift Left; Logical Shift 
Right; Rotate Left; Rotate Right; Summary; 
Exercises; Answers. Multiplication, Divi- 
sion, and Subroutines— Eight-Bit Multi- 
plication; Using the 8-Bit Multiplication 
Program; Eight-Bit Division; Subroutines; 
Using a Subroutine; Summary; Exercises; 
Answers. Programming Practice— Using a 
Logic Function; Entering the Subroutine; 
Program to Sound Off; Play Notes Program; 
Program to Shape Sound; Program to Print 
on the Screen; You're On Your Own. Ap- 
pendix A-6502 Instructions— Flags Affected. 
Appendix B— 6502 Instructions— Address- 
ing Modes. Appendix C— Frequency Values 
for Three-Octave Scale. Appendix D— Atari 
Assembler Error Codes. Appendix E— Atari 
Operating System Errors. Appendix 
P— ATASCII Character Set. Index. 



AIM 

The Take AIM Manual, Volume 1 by 

James Hoyt Clark. Matrix Publishers, 
Inc. (11000 S.W. 11th, Beaverton, 
Oregon 97005). 1981, xii, 388 pages, 
diagrams, drawings, listings, 8V4 x 11 
inches, paperbound. 
ISBN: 0-916460-29-0 $16.95 

This manual is designed as an addition 
to the AIM 65 documentation that is 
enclosed with the AIM 65. To use this 
manual successfully, a reader must first 
be able to use the AIM 65 documentation. 

CONTENTS: How To Use This Manual. 
The Formal Introduction— The AIM 65 
Hardware; The PERSON; Some Useful 
Steps— Software Example. In The Begin- 
ning—A Short History; The Sixteen Com- 
mandments of Microcomputers; 0000 
CAUTION; 1 0001 POWER; 2 0010 WIR- 



ING; 3 0011 The Foundation; 4 0100 IN- 
SIGHT/OUTSIGHT; 5 0101 & 6 0110 Info 
Sources; 7 0111 Micro Chauvinist; 8 1000 
NOP; 9 1001 Other Programs— the LAW; A 
1010 Checking with the Neighbor; B 1011 
&C 1100Q &A's ; D 1101 Storage; E 1110 
The Every Half Hour Be Caref uls ; F 1 1 1 1 An 
Understanding. Tie Language of the AIM 65 
—The Hex Format; The Mnemonic Format; 
The ASCII Text Format; The EDITOR and 
ASSEMBLER; The Cost of Assembling; 
How to Input the TAKE AIM Programs. 
Microcomputer Basics— Memory; Some 
Programming Information; The Brains— the 
6502 Microprocessor; The Heart— Clocks 
and Timing. AIM 65 Documentation Ex- 
plained— Manuals, Cards, and a Chart; The 
Chicken or the Egg; User's Guide; The 
Monitor Program Listing; 6500 Micro- 
processor Programming Reference Card; 
The AIM 65 Wall Chart; The Monitor and 
Editor Subroutines. The AIM 65 Documen- 
tation Index. The AIM 65 Display— The 
Display Hardware; DISPLAYING; The AIM 
65 Keyboard— The Keyboard Hardware; 
KEYING; KBINT Program; ASCII Program; 
DEMCU Program. Versatile Interface Adap- 
tor (VIA)— The 6522 Homologous Homun- 
cular Warehouse; Diagram of the VIA 6522; 
VIA Data Output Register Schematics; 
Summary of VIA Control Registers; Sum- 
mary of VIA Commands. Glossary. The 
GAIMS Programs— BINARY TO HEX- 
ADECIMAL CONVERSION Program— 
BINHX; CARDS Program— CARDS; REAC- 
TION TIMER Program-REACT; 
GOLLUM'S CAVERNS Program— GC; ESP 
Program — ESP; BAGELS Program — 
BAGEL; BRICKS Program — BRICK; 
HANGMAN Program— HANGM; TIC TAC 
TOE Program— TIC; STARWAY 090 Pro- 
gram— STAR9. The UTILITY Programs— 
ROTATING BILLBOARD — ROTBB; 
PRINTER WAVES Program— PRTWV; AD- 
DITION & SUBTRACTION— ADDSB; 
TOTAL Program— TOTAL; TIMER Pro- 
gram— TIMER; Printer Paper Programs; 
MEMORY TEST Program— MTEST; Hex- 
adecimal Input/Output Programs; EDITOR 
RESTORE Program— ESTOR; SUPER 
SIGNS Program — SIGNS; CONVERT 
DECIMAL TO HEX Program— CNVRT; 
SYMBOL TABLE— SYMTB; FIELD SORT 
Program— FSORT; RELOCATE MEMORY 
Program— RLOC; DISASSEMBLY 1-STEP 
Program— K1STP, FIBBONACCI NUMBER 
SERIES Program— FIBBN. The Appen- 
dix— Contents— ROCKWELL Specification 
Sheets; Questions for the TAKE AIM 
Manual; Worksheets and Memory Page 
Samples; Reply Form. 



Pascal 

Pascal Programs for Scientists and 

Engineers by Alan R. Miller. Sybex Inc. 

(2344 Sixth Street, Berkeley, California 

94710), 1981, xxii, 378 pages, 134 

listings and illustrations, 7x9 inches, 

paperbound. 

ISBN: 0-89588-058-X $16.95 

This book was written to help readers 
gain a proficiency in Pascal and to pro- 
(Continued on next page) 
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New Publications 

/Continued from page 45) 

vide a library of programs useful for 
solving problems frequently encoun- 
tered in science and engineering. It con- 
tains over 60 of the most frequently 
used scientific algorithms, along with 
their program implementation in 
Pascal. The book is designed not only 
for the practicing scientist or engineer 
but is also suitable for a junior- or 
senior-level engineering course in 
numerical methods. Users need a work- 
ing knowledge of an applications 
language (Pascal, FORTRAN, or BASIC). 
Experience with vector operations and 
differential and integral calculus is also 
recommended by the authors. 



CONTENTS: Evaluation of a Pascal Com- 
piler— Introduction; Precision and Range of 
Floating-Point Operations; Pascal Program: 
A Test of the Floating-Point Operations; 
Pascal SIN and COS Functions; Pascal Pro- 
gram: Testing the SIN Function; Other 
Pascal Functions; External Files; A Power- 
of-10 Function; Pascal Program: Calculating 
Powers of 10; Summary. Mean and Standard 
Deviation— Introduction; The Mean; The 
Standard Deviation; Pascal Program: Mean 
and Standard Deviation; Random Numbers; 
Pascal Function: A Random Number 



Generator; Pascal Program: Evaluation of a 
Random Number Generator; Pascal Func- 
tion: Gaussian Random Number Generator; 
Pascal Program: Evaluating RANDG; Sum- 
mary. Vector and Matrix Operations- 
Introduction; Scalars and Arrays; Vectors; 
Matrices; Pascal Program: Matrix Multi- 
plication; Determinants; Pascal Program: 
Determinants; Inverse Matrices and Matrix 
Division; Summary. Simultaneous Solution 
of Linear Equations— Introduction; Linear 
Equations and Simultaneous Equations; 
Solution by Cramer's Rule; Pascal Program: 
A More Elegant Use of Cramer's Rule; Solu- 
tion by Gauss Elimination; Pascal Program: 
The Gauss Elimination Method; Solution 
by Gauss-Jordan Elimination; Pascal Pro- 
gram: Gauss-Jordan Elimination; Multiple 
Constant Vectors and Matrix Inversion; 
Pascal Program: Gauss-Jordan Elimination, 
Version Two; Ill-Conditioned Equations; 
Pascal Program: Solving Hilbert Matrices; A 
Simultaneous Best Fit; Pascal Program: The 
Best Fit Solution; Equations with Complex 
Coefficients; Pascal ProgTam: Simultaneous 
Equations with Complex Coefficients; The 
Gauss-Seidel Iterative Method; Pascal Pro- 
gram: The Gauss-Seidel Method; Summary. 
Development of a Curve-Fitting Pro- 
gram—Introduction; The Main Program; A 
Printer Plotter Routine; A Simulated Curve 
Fit; The Curve-Fitting Algorithm; The Cor- 
relation Coefficient; Pascal Program: Least- 
Squares Curve Fitting for Simulated Data; 
Summary. Sorting— Introduction; Handling 
Experimental Data; A Bubble Sort; Pascal 
Program: The Bubble Sort and TSTSORT; 



CBM/PET? SEE SKYLES ... CBM/PET? 



"Should we call it Command-O 
or Command-O-Pro?" 

That's a problem because this popular ROM is 
called the Command-O-Pro in Europe. (Maybe 
Command-O smacks too much of the military.) 

Bui whatever you call it, ihis 4K byle ROM will provide your CBM BASIC 4.0 (4016. 
4032) and 8032 computers with 20 addilional commands including 10 loolkn program 
cdiiing and debugging commands and 10 addilional commands for screening, formatting 
and disc file manipulating. (And our manual writer dug up 39 addilional commands in the 
course of doing a 78-page manual!) 

The Command-O extends Commodore's 8032 advanced screen editing features to the ulti- 
mate. You can now SCROLL up and down, insert or delete entire lines, delete the char- 
acters to the left or right of Ihe cursor, select TEXT or GRAPHICS modes or ring the 
8032 bell You can even redefine the window io adjust it by size and position on your 
screen. And you can define any key to equal a sequence of up to 90 key strokes. 
The Command-O chip resides in hexadecimal address $9000. the rightmost empty socket 
in 4016 and 4032 or the rearmost in 8032. If there is a space conflict, we do have Socket- 
2-MB available at a very special price. 

Sk>les guarantees your satisfaction: if you are not absolutely happy with your new 
Command-O, return it to us within ten days for an immediate, full refund. 

Command-O from Sk>les Kleclric Works $75.00 

Complete with Sockct-2-Me 95 -°° 

Shipping and Handling (USA/Canada/ $2.50 (Europe/Asia) $10.00 

California residents musi add 6%/6'/i% sales lax, as required. 

SkvleS Electric Works Visa/Mastercard orders: call tollfrcc 

231K South Whisman Road (800) 227-9998 (except California) 

Mountain View. California 94041 California orders: please call (415) 

(415) 965-1735 965-1735. 
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Program: Evaluating the Gaussian Error 
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Program: Evaluating the Complement of 
the Error Function; Pascal Program: A 
Faster Implementation of the Error Func- 
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gram: Evaluation of the Gamma Function; 
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Bessel Functions of the Second Kind; Sum- 
mary. Appendix A: Reserved Words and 
Functions. Appendix B: Summary of 
Pascal— Minimum Standard Character Set; 
Variable Names; Numbers; Comments; 
Operations; Syntax; Conditional State- 
ments; Iterative Statements; Transfer-of- 
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Data Types. Bibliography. Index. 
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APPLE DISK & MEMORY UTILITY 



THE INSPECTOR 

These utilities enable the user to examine data 
both in the Apple's memory and on disks. Simple 
commands allow scanning through RAM and 
ROM memory as well as reading, displaying and 
changing data on disk. 

Read and rewrite sections ot Random Access files. 
Reconstruct a blown VTOC. Weed out unwanted 
control characters in CATALOG listings. 
UnDELETE deleted files or programs. Repair files 
that have erroneous data. All without being under 
program control, and more 

You may transfer sectors between disks. This 
allows you to transfer DOS from one disk to 
another thereby saving a blown disk when all that's 
blown is DOS itself; or to restore a portion of a 
blown disk from its backup disk. 

Its unique NIBBLE read routine provides a Hi Res 
graphical representation of the data on any track 
allowing you to immediately ascertain whether 
your disk is 13 sector or 16 sector Get an I/O 
error. ..is it because you have the wrong DOS up? 
is it because of a bad address field? or a bad data 
field? or because a track was erased? This will 
allow you to tell m an instant without blowing away 
any program in memory. 



• Repairs Blown Disks 

• Reads Nibbles 

• Maps Disk Space 

• Searches Disks 



The INSPECTOR even lets you search through 
an entire disk or through on board memory for the 
appearance of a string. Now you can easily add 
lower case to your programs (with LCA). 

Do you want to add so-called illegal line numbers 
into your program? or have several of the same line 
numbers in a program (like the professional 
programmers do)? or input unavailable commands 
(like WMEM to Integer Basic}? or put quotation 
marks into PRINT statements? Here's the easy 
way to do them all! 

AND MORE 
The INSPECTOR provides a USER exit that will 
interface your own subroutines with those of the 
INSPECTOR itself. For example, just put a 
screen dump routine (sample included in 
documentation) at HEX 0300 and press CTRL-Z. 
The contents of the screen page will print to your 
printer. 

ROM RESIDENT ROUTINES 
The INSPECTOR utilities come on an easily 
installed EPROM. This makes them always 
available for instant use. No need to load a disk 
and run a program. 

FULLY DOCUMENTED 

Unlike other software of its kind. The 
INSPECTOR comes with an EASY to 
understand manual and reference card. Examples 
and graphics help even the uninitiated use the 
power of these utilities. And furthermore, we offer 
the kind of personal service which you have never 
experienced from a software vendor before. 



1 Searches Memory 

> Edits Disk Sectors 

* Outputs Screen to Printer 

i Displays Memory In HEX/ ASCII 



See your LOCAL DEALER OR . . . 
Mastercard or Visa users call TOLL FREE 1- 
800-835-2246. Kansas residents rail 1-800- 
362-2421. Or send $49.95. Illinois residents 
add $3 sales tax. 

SYSTEM REQUIREMENTS 

All Apple II configurations that have access lo Integer Bask 
(either in ROM ot RAM) will suppoti The INSPECTOR. 
Just place the chip in empiy socket D8 either on the mother 
board or in an Integer firmware card. Apple II* systems 
with RAM expansion boards or language systems will 
receive the INSPECTOR on disk to merge and load with 
INTBASIC 



And., it you have an Apple II-. without either RAM or ROM 
access to Integer Basic, you will still be able to use The 
INSPECTOR because we are making available l&k RAM 
expansion boards at a very affordable price Not only will 
you be able to use The INSPECTOR, but you will also 
have access to Integer Baste and other languages. Our 
price (or BOTH the INSPECTOR and our 16k RAM 
board is $ 169.95. less than most RAM boards alone. Call 
our office lor details. 



Another Quality Product from 
Omega Software Products, Inc. 
222 S. Riverside Plaza, Chicago, IL 60606 
Phone (312) 648-1944 



' 1981 Omega Software Products. Inc. 

Apple is a registered trademark of Apple Computer. Inc. 



• 



Your Pascal too slow? 
Not anymore... 



wirh the PASCAL SPEED-UP KIT. which includes THE MILL: rhe eosiesr 
woy to give your Pascal sysrem a tremendous performance boost. 

Here Is how it works: 

1) Plug in THE MILL 

2) Run our configuration program one rime 

3) That's all 

You now have o 30 to 300% foster Pascal P-mochine. ond you 
don't hove to tecompile. reprogram or relink. FORTRAN users may 
also rake advantage of THE PASCAL SPEED-UP KIT. Contact your 
local Apple dealer for more information. 

Coming June 1. 1981 to your local Apple deoler" 
THE ASSEMBLER DEVELOPMENT KIT 

STELLATION TWO makes available the tools necessary to take full 
advantoge of THE MILL. Enrer the world of true MULTIPROCESSING 
wirh THE PASCAL SPEED-UP KIT ond THE ASSEMBLER DEVELOPMENT 
KIT. available only from STELLATION TWO. 





THE MILL transforms the 6-bit Apple II 
mro a computer that acts like o 
16-bit machine THE MILL has 
unique hardware features that 
permit rhe 6609 to run at full 
speed ' 1 megahertz) and 
How the 6502 to run at 
20%ofit5notmol 
speed — 
AT THE SAME TIME! 



Find out about 
THE MILL and get 
involved with the 
hottest item on the 
personal computer 

marker roday 
No existing personal compurer 
can give you the power 
performance and price of THE Ml LL'S 

6809-6502 combination. 



P.O. BOX 2342- N2 

SANTA BARBARA. CA 93120 

(805)966-1140 



Apple II 
is o nademork 
for Apple Computet. Inc. 
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16K RAM EXPANSION BOARD 
FOR THE APPLE II* $195.00 



The Andromeda 16K RAM Expansion Board 
allows your Apple to use RAM memory in place 
of the BASIC Language ROMs giving you up 
to 64K of programmable memory. Separate 
Applesoft* or Integer BASIC ROM cards are no 
longer needed. The 16K RAM Expansion Board 
works with the Microsoft Z-80 card, Visicalc. 
DOS 3-3. Pascal. Fortran, Pilot, and other 
software. A switch on the card selects either 
the RAM language or the mainboard ROMs 
when you reset your Apple. 

The Andromeda 16K RAM Expansion 
Board has a proven record for reliability with 
thousands of satisfied customers. 



Now with One Year Warranty. 

•Apple II and Applesoft are trademarks. 

ANDROMEDA 



INCORPORATED 

P.O. Box 19144 
Greensboro, NC. 27410 
919 852-1432 



Distributed By: 



m 



COMPUTER 

□ATA 

SERVICES 



P.O. Box 696 
Amherst, NH. 03031 
J 603 673-7375 
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Apple Graphics 



This month's Apple bonus section 
features a special concentration on 
graphics. The versatile graphical 
capabilities of the Apple lend 
themselves easily to many useful and 
unusual applications. These applica- 
tions can range from rather ordinary 
ones, like graph plotting, to some very 
sophisticated uses like solid area 
shading and hidden surface removal. 
In this section, the MICRO staff has 
collected five graphics-oriented ar- 
ticles, each of which highlights a dif- 
ferent use of the Apple's graphical 
capabilities. 

"SHAPER," by C. Osborne, is an 
easy-to-use, powerful utility designed 
to create and maintain Applesoft 
shape tables. While several shape 
table utilities have appeared before, 
both in the pages of MICRO and in 
other magazines, none has worked 
quite as quickly and easily as 
SHAPER. If you have not yet explored 
the possibilities offered by shape 
tables, SHAPER is the perfect place to 
start. 

"Lo-Res Graphics and Pascal," by 
CD. Heth, unlocks the power of the 
Apple's low resolution graphics from 
within the Pascal environment. One of 
the most common complaints about 
Apple Pascal has been that there are 
no Lo-Res graphics instructions on 
capabilities. With the routines ex- 
plained in this article, the Apple 
Pascal user can install these instruc- 
tions and take advantage of the 
16-color graphics for which the Apple 
is famous. With low resolution 
graphics installed, the structure and 
versatility of Apple Pascal will become 
even more alluring than it already is. 

"Paddle Hi-Res Graphics," by K. 
Woodward, interfaces Applesoft high 
resolution graphics to the game 
paddle control. Designed to enable 
drawing of backgrounds on the high 
resolution screen, the programs pro- 
vided in this article demonstrate the 
power of interactive graphic cursor 
control, and show how easily such 
control is implemented on the Apple. 
Additionally, the article explains some 



of the graphical transformations used 
in the program — transformations 
which are universally essential to any 
computer graphics system. 

"True 3-D Images on the Apple II," 
by A. Radciiffe, illustrates how 
3-dimensional views can be generated 
on the Apple Hi-Res screen by the use 
of stereoscopic pairs. The blue Hi-Res 
"roller-coaster" depicted on this 
month's cover represents one such 
pair and many others can be 
generated by the "noisy coaster" 
routine explained in the article. 
Besides providing a lucid description 
of the theory and techniques underly- 
ing 3-D view generation, this article 
and its accompanying programs 
should provide hours of fun and 
amusement. (They did for the MICRO 
staff.) 

"Apple Bits," by R. Vile, discusses 
techniques for displaying patterns in 
low resolution graphics mode. The 
first part of this three-part article, 
presented in this month's issue, 
describes a fast, machine language 
routine which converts compact, 
numeric data files into low resolution 
pictures. A demonstration program, 
also described, illustrates how the 
routine is used to produce animation 
on the Lo-Res screen. The next two 
parts of the article, which will appear 
in October and November, will il- 
lustrate methods of generating and 
using the numeric data files. Together, 
the three parts of the series will enable 
more effective use of the Apple's low 
resolution graphics. 

Each of these graphics articles 
tackles a different capability of Apple 
graphics. By reading through them, 
and studying the program material 
provided, it should be an easy matter 
to unlock the hidden power of your Ap- 
ple's video display. 

The graphics capability is, without 
doubt, one of the most powerful of the 
Apple, and is certainly one of the most 
interesting areas of computer science. 
We hope this special section helps to 
stimulate exploration of this exciting 
area by all MICRO readers. 
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SHAPER: A Utility 

Program for Managing 

Shape Tables 



<D 



"Shaper" describes a utility 
program for building and 
managing shape tables for the 
Apple II computer. The program 
allows the user to build shape 
tables by vector input, and view 
the shape while it is being built. 
The user can then change 
shapes, add shapes, delete 
shapes, review a shape table, 
and save or load a shape table. 



Clement D. Osborne 
949 S. Kingston St. 
Aurora, Colorado 80012 



Shape tables are a very valuable tool of 
the Applesoft language. Programmers 
are allowed to define their own shapes, 
and then by implementing the Applesoft 
commands DRAW, XDRAW, ROT, 
SCALE, and SHLOAD, the shapes can 
be drawn, erased, rotated, enlarged, and 
loaded from tape. The shape tables can 
be used in programs to create dynamic 
effects on the high resolution graphics 
screen. Animating, displaying game ob- 
jects, and mixing text and graphics on 
the high resolution graphics screen 
create only a subset of the possible uses 
of shape tables. The real problem of 
utilizing shape tables is the creation of 
the table. This program relieves the pro- 
grammer of the tedious task of defining 
the shapes and setting up the table. 

SHAPER is a complete program for 
building and modifying shape tables. 
The first function, BUILD, allows shape 
tables to be constructed. All details are 
handled for creating the index portion 
and shape definition portion of the table. 
The user types in vector definitions by 
using the keys through 7. By hitting 
the ESC key the high resolution screen 
will display the shape as it is being typed 
in. The ADD function allows more 
shapes to be added to an already existing 
table. All new shape definitions are add- 
ed at the end of the table, and the in- 
dexes are added in the index portion of 



the table. The function CHANGE 
allows the user to replace existing 
shapes in a table with a new shape 
definition. The actual shape definition 
is added at the end of the table, the old 
shape definition is removed, and the in- 
dexes are updated to point to the proper 
locations. 

DELETE allows the user to remove 
unwanted shapes from a shape table. 
After the shapes are removed, the table 
is compressed. The remaining shapes 
will then have different numbers when 
referring to them with the DRAW and 
XDRAW commands. The REVIEW func- 
tion displays information about a shape 
table and allows the user to view the 
shapes in the table. The SAVE/LOAD 
function allows shape tables to be load- 
ed from tape and saved or loaded to and 
from disk. Creating shape tables with 
SHAPER is an enjoyable process, and 
using the shapes in Applesoft programs 
adds a new dimension to programming 
the Apple H computer. 

To use the shape table in Applesoft 
programs requires two steps. The first 
step is loading the shape table into 
memory. SHLOAD can be used to read 
the table in from tape, or the code in line 
7110 can be implemented to read the 
table in from disk. The second step is to 
store the lower two digits of the starting 
location of the table in $E8 (248), and 
the upper two digits in $E9 (249). 

The code presented is full of 
REMarks to aid in the understanding of 
how the algorithms work. Each function 
is logically grouped into a set of lines. 
Please contact the author if there are any 
problems, suggestions, or questions 
about SHAPER. The text and example 
shape tables are available on cassette or 
disk. Contact the author for details. 

The remainder of the article is 
presented in a "user's manual" format, 
so it can easily be referred to while 
learning to use the program. After run- 
ning the program once or twice, the 
user's manual will seldom be needed. 



Shape tables are a unique feature of 
the Apple II . However, the method of 
building shape tables described in 
chapter 9 of the Applesoft manual is 
time consuming, prone to error, and dif- 
ficult to master. SHAPER utilizes an 
automated approach which provides the 
same sophisticated results in a shorter 
time with less chance of error. 

SHAPER not only allows the user to 
build tables, but also to add shapes to 
the table, change shapes in the table, 
delete them from the table, display 
them from a table, and save shape tables 
to disk or load from disk or tape. 



Executing SHAPER 

SHAPER 2 is written in Applesoft 
BASIC. The program takes up about 
6.5K and uses HGR2. SHAPER can be 
run in a 32K Apple, but 48K is recom- 
mended. Once SHAPER is loaded, type 
RUN to execute. 

While running SHAPER a "Yes/No" 
question can be answered with any word 
beginning with a "Y" or "N." If an 
answer begins with any other letter, 
then the question is re-asked. 

An "APPLESOFT ERROR" is an 
error caused by Applesoft. SHAPER 
intercepts the error and prints "APPLE- 
SOFT ERROR xx," where xx is the error 
code as listed on page 81 of the Applesoft 
Manual. To restart SHAPER hit any key. 
Each cause of an ' 'APPLESOFT ERROR' ' 
is discussed under the function in which 
it can occur. 



A "DOS ERROR xx" is an error that 
occurs when a table is being saved or 
loaded using the disk. The xx is the DOS 
error code as listed on page 114 of the 
DOS 3.3 manual. 

Warning: Do not hit "Reset" during 
the operation of any of the functions of 
SHAPER, or the table could be 
destroyed. 
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Selecting the Starting Location 

Selecting the correct starting loca- 
tion for the table is very important, and 
because of the importance, SHAPER 
makes the user double check it. In 
selecting a starting location, the amount 
of memory available in the computer 
and the length of the shape table being 
manipulated must be considered. 

SHAPER 2 overwrites part of HGR1 
and uses HGR2, so the logical location 
for the table is immediately above 
HGR2 at memory location 24576 (6000 
hex). Using this location will allow a 
table length of 24476 bytes without 
DOS booted and 13724 bytes with DOS. 
Both these lengths allow for 100 bytes of 
character strings stored after HIMEM. 

Question: What is the starting location 
of the table (in decimal)? 

Response: Action of SHAPER: 

n Set n as the starting loca- 

tion of the table. 
Set starting location of the 

table to 24576. 

If n is greater than the highest 
memory location in the Apple or lower 
than LOMEM an "APPLESOFT 
ERROR" will occur. Hit any key to 
restart SHAPER, and select a different 
starting location. After selecting the 
starting location a menu will appear: 

Functions available: 

0. Exit from SHAPER 

1. Build shape table 

2. Add shapes to table 

3. Change shape in table 

4. Delete shapes from table 

5. Review shape table 

6. SAVE/LOAD shape table 
Question: Function? 



Response: 
0-6 

> 6 



Action of SHAPER: 
Execute the desired 
function. 
Re-ask question. 



If a shape table is not in memory, 
trying to execute the Add, Change, 
Delete or Review function will give 
unpredictable results and usually end 
with an "APPLESOFT ERROR." Each 
function is described in the rest of the 
article. 

Build 

Build is used to construct a shape 
table. SHAPER-BUILD will configure 
the table in the proper format needed to 
utilize the Applesoft shape table com- 



mands. SHAPER-BUILD builds the in- 
dex portion of the table along with the 
shape definition portion. 

Question: Number of shapes going into 
table? 

Response: Action of SHAPER-BUILD: 
Return to menu. 

1 - 255 Set table for number of 
shapes. 
^ 255 Re-ask question. (Maximum 
number of shapes is 255.) 

SHAPER-BUILD is now ready to accept 
vector definition numbers to define 
shapes that are going into the table. 

Definition of Vectors: 

- move up 

1 - move right 

2 - move down 

3 - move left 

4 - plot and move up 

5 - plot and move right 

6 - plot and move down 

7 - plot and move left 

Question: (Will repeat until shape 
definition is completed.) Vector 1 — 1 = 

Response: Action of SHAPER-BUILD: 
- 7 Use as vector definition in 

shape. 
8 - 9 Display definition of 

vectors. 
ESC Switch from TEXT to 

HGR2 and vice versa. 
X Erase last vector input. 

Anything else is ignored. 



To end a shape definition type in 
three vectors of zero. Because of how 
Applesoft handles a shape definition, a 
shape cannot be defined to move up 
three times in a row, or move up twice 
and use a plotting vector. Example (Vec- 
tor n, Vector n + 1, Vector n + 2): 



n 


n+1 


n + 2 













Will end the shape 
definition. 








(4-7) 


Will end the shape 
definition. 








(1-3) 


Move up twice 
and move the last 
vector direction. 



After the shape has been defined it 
will be displayed on high-resolution 
graphics page two at the coordinates: X 
= 139, Y = 79. These coordinates can 
be changed by altering line one of 
SHAPER, which also changes the point 
that the REVIEW function uses. 



The "ESC" key will switch the 
display between TEXT and high- 
resolution graphics page two, so the 
shape can be viewed while it is being 
built. If a move vector is used to go over 
a point that has been plotted, the point 
will disappear, but the point still exists 
in the shape definition and it will be 
displayed when the shape is completed. 

The "X" key can be used to erase the 
last vector input. The input buffer will 
only hold 100 inputs. This allows for 
100 vectors to be erased per shape. If 
more than 100 mistakes are made on a 
shape, then the shape can be ended and 
restarted. 

When the shape is completed, the 
shape will be displayed on HGR2, and 
the bell will sound. SHAPER is waiting 
for a "Y" or "N" for approval or dis- 
approval of the shape. The question will 
not be seen and the ESC key is inoper- 
ative at this time. 

Question: Is shape OK? 

Response: Action of SHAPER-BUILD: 
Y Allow user to define the 

next shape. 
N Allow the user to redefine 

the last shape. 

Warning: Do not start a shape definition 
with or (4-7) . This will put one 
byte of zero in the table to define the 
shape. Applesoft will ignore this zero 
and use the next bytes in the table to 
define the shape until another byte of 
zero is reached. Later, when using 
Delete and Change functions, more 
problems could arise. An "APPLESOFT 
ERROR" will occur if one attempts to 
build a long table past the end of 
memory available in the computer. 

Example of Build Function 

Suppose one wishes to build a shape 
table of one shape. The shape looks like 
a "Y" in a 5 x 7 format. For starting 
location reply: (sets starting location 
to 24576 — 6000 hex). The shape looks 
like this: 
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The shape is then drawn with direction 
vectors: 




The vectors would be laid out as shown 
in figure 1 . Type in the vector definition 
numbers followed by three zeros. Loca- 
tion 6000 hex will show the table as in 
figure 2. 

Add 

Add allows one to add shapes at the 
end of an already existing shape table. 
The number of shapes added cannot 
make the total shape count in the table 
go over 255. 

Question: Number of shapes adding to 

table? 

Response: Action of SHAPER-ADD: 
Return to menu. 

1 - n Allow n number of shapes 

to be added to the table. 
NS + n>255 Re-ask question. 

(n is the number of shapes adding. NS is 
the number of shapes in table. NS + n is 
the number of shapes in the table after 
the add.) 

After telling SHAPER-ADD how 
many shapes are being added, the vector 
definitions are typed in as in SHAPER- 
BUILD. 

Change 

Change allows a shape definition to 
be redefined. The new shape is defined 
as in SHAPER-BUILD and it replaces the 
one being changed. 

Question: Shape to be changed? 

Response: Action of SHAPER-CHANGE: 
Return to menu. 

1 - NS The requested numbered 

shape is changed. 
> NS Re-ask question. 

(NS is the number of shapes in the 
table.) 

After telling SHAPER-CHANGE what 
shape is to be changed, the vector defini- 
tions are typed in as in SHAPER-BUILD. 




Figure 2 




6000 pL 00 L 04 00, ,24 3G 38 20 4D 31 17 

Number of Index Shape Definition 

Shapes in 

Table 


06 00 1 

t 

End Byte 



Delete 

Delete allows unwanted shapes to be 
removed from the table. SHAPER- 
DELETE removes the shape definition, 
removes the index, and compresses the 
table. This compression causes all 
shapes after the deleted shape to have a 
smaller definition number in the table. 

Example: Suppose shape number 3 is to 
be deleted. 

Before 



Shape Number 


Shape 


1 
2 
3 
4 
5 


A 
B 
C 
D 
E 


After 




Shape Number 


Shape 


1 
2 
3 

4 


A 
B 

D 
E 



Notice after shape 3 is deleted, that 
shape 3 now defines D, and shape 4 is 
now E. 

Question: (Will repeat until function is 
completed.) Shape to be deleted? 



Action of SHAPER-DELETE: 

Return to menu if no shapes 
have been deleted. Com- 
press table and return to 
menu if shapes have been 
deleted. 

Delete that shape from the 
table. 

Give error message and re- 
ask question. 

Give error message and re- 
ask question. 

(NS is number of shapes in the table.) 
(PS is a previous deleted shape in this 
execution of SHAPER-DELETE.) 



Response: 




1 -NS 

>NS 

PS 



Many shapes may be deleted in one 
execution of SHAPER-DELETE. The 
table is not compressed until is typed 
to end the function. So, in the above ex- 
ample if shape 2 and shape 4 were to be 
deleted, then 2, 4, and would be typed 
in to answer the questions. B and D 
would be deleted. 

If there is only one shape in the 
table, the Delete function cannot be 
used. Trying this will result in an error 
message and the question being re- 
asked. Type in zero to exit from 
SHAPER-DELETE. 

Depending on the size of the table, 
there will be a delay when typing in zero 
to end the function. This is when the 
table is being compressed. 

Review 

Review will give information about 
the table and allow the shape table to be 
displayed. Information given: 1. The 
starting location of the table; 2. The 
ending location of the table; 3. The 
length of the table; 4. How many shapes 
are in the table. 

Question: Shape number (first, last)? 

Response: Action of SHAPER-REVIEW: 

,L Return to menu. 

F,L (F = L) Display shape. 

F,L (F<L) Display shape F through 

shape L. 
F,L (F >L) Re-ask question. 

(F is the first shape to be displayed.) 
(L is the last shape to be displayed.) 

If L is greater than the number of shapes 
in the table then the shapes from F to 
the end of the table will be displayed. 

If an "APPLESOFT ERROR" occurs 
when the function is being executed for 
the first time, then a table does not exist 
at the given starting location. Insure 
there was a table at the starting location. 
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If the table was read in from tape, make 
sure there was not an I/O error during 
the read, and that the length of the table 
was correct. 

The point that the shape is drawn at 
is: X = 139, Y = 79. This point can be 
changed by altering line one in the pro- 
gram. Altering the coordinates also 
changes them for the Build function. 

While a series of shapes is being 
displayed, a zero can be typed in to exit 
the function. 

Save/Load 

Save/Load allows a shape table to be 
loaded from cassette tape, loaded from 
disk, or saved to disk. A function menu 
will appear: 

0. Exit 

1. Load from tape 

2. Save to disk 

3. Load from disk 

4. List catalog 

Question: Function? 



Response: 



1 

2,3 
4 



Action of SHAPER- 

S AVE/ LOAD: 

Return to menu. 

(See cassette function 

below.) 

(See disk function below.) 

Display Catalog from the 

disk. 



Cassette Tape: 

Question: How long is table (in decimal)? 

Response: Action of SHAPER: 
(Load from tape) 
Return to menu, 

n Use as length of table. 

Next, the tape should be started. Hit any 
key to start SHLOAD command, which 
reads the tape. 

If the wrong length is given, then the 
table will not be loaded at the starting 
location given. This will cause an 
"APPLESOFT ERROR" later in the ex- 
ecution of another function. Reload the 
table using the correct length. 



If "ERR" appears on the screen, then 
an I/O error has occurred during the 
read. An "APPLESOFT ERROR" will 
occur. Hit any key to restart the pro- 
gram. Check the tape and recorder for 
problems. 

Disk: 

Question: What is the (input/output) 
file name? 



Response: Action of SHAPER (Disk): 
Legal File Perform the save or load 
Name function. 

An illegal file name as defined in the 
DOS manual will result in a "DOS ER- 
ROR" or an "APPLESOFT ERROR." A 
"DOS ERROR" will return to the 
Save/ Load menu and the function can 
be retried. An "APPLESOFT ERROR" 
will return to the beginning of the pro- 
gram. The shape table is not lost. Use 
the same starting location and the table 
is recovered. 



14 


REM 


15 


REM 


16 


REM 


18 


REM 


19 


REM 



SHAPER Listing 



DIM BF7. (1O0) 

1 X = 139: Y = 79 

10 ONERR GOTO 9000 

: COMMENTS SHOULD NOT 
: BE INCLUDED IN THE 
: EXECUTABLE MODULE. 

SET CONSTANTS 
20 XI = X:Y1 = Y:TW = 2:0E ■ 1 : TF 
= 256: ZE = 0:TR = 3: GOTO 6 
000 
1000 KB = BF7. <B3):B3 = B3 + OE: IF 

B3 = 101 THEN B3 = ZE 
1010 IF Bl = TW THEN RETURN 
1020 GOSUB 1030: RETURN 

1027 REM : * SUBROUTINE FOR * 

1028 REM : * VECTOR INPUT * 
1030 N = N + OE 

1040 PRINT "VECTOR ";SN;"-";N;" 

1049 REM : GET KEYBOARD INPUT 
AND DETERMINE ACTION 

HCOLOR= TR: HPLOT Xl.YliKI = 

PEEK < - 16384) - 176: HCOLOR= 
ZE: HPLOT XI, Yl: IF (KI < ZE 

AND KI < > - 21) OR (KI > 
9 AND KI < > 40) GOTO 1050 

POKE - 16368, ZE: IF KI = 4 
GOTO 1190 

IF KI = - 21 GOTO 1170 

IF KI > 7 GOTO 1330 

PRINT KI: IF KI > TR 

THEN HCOLOR= TR: HPLOT XI, Yl 



1 050 



1060 

1070 
1 080 
1 090 



1099 REM : PLOT NEW VECTOR POINT 

1100 T6 = KI:B4 = OE: GOSUB 1240 
1110 BF7. (BP) = KI:BP = BP + OE: IF 

KI = ZE THEN B2 = B2 + OE 



1120 


IF B2 


= TR OR <KI 3 


TR AND 




B2 = TW) THEN Bl = TW: RETURN 


1130 


IF BP 


= 100 THEN Bl 


= OE 


1140 


IF BP 


= 101 THEN BF 


= ZE 


1150 


IF KI 


< > ZE THEN 


B2 = ZE 


1160 


RETURN 




1169 


REM : 


SWITCH SCREEN 


MODE 


1170 


IF S ■ 


■ OE THEN POKE - 162 




99. ZE: 


POKE - 16297 


,ZE: POKE 




- 16304, ZE:S = ZE: 


GOTO 105 


1180 




TEXT : 


S = OE: GOTO 


1050 


1189 


REM : 


ERASE OLD VECTOR 


1190 


BP = BP - OE: IF BP 


= B3 - 




E OR N 


= OE GOTO 1230 


1200 


IF BP 


< ZE THEN BP 


■ 100 


1210 


T6 = BF7.(BP):B4 = - 


OE: 80SUB 




1240 






1220 


HPLOT 


X1,Y1:N = N - 


OE: PRINT 




"ERASED": GOTO 1040 




1230 


BP = BP + OE: PRINT 


"CAN'T E 




RASE": 


GOTO 1040 




1239 


REM : 


SET UP NEW X 


AND Y 




VALUES 


FOR PLOTTING 




1240 


IF T6 


= ZE OR T6 = 


4 THEN Y 




1 = Yl 


- B4 




1250 


IF T6 


= OE OR T6 = 


5 THEN X 




1 = XI 


+ B4 




1260 


IF T6 


= TW OR T6 = 


6 THEN Y 




1 = Yl 


+ B4 




1270 


IF T6 


= TR OR T6 = 


7 THEN X 




1 = XI 


- B4 




1280 


IF XI 


< ZE THEN XI 


= 279 


1290 


IF XI 


> 279 THEN XI = ZE 


1300 


IF Yl 


< ZE THEN Yl 


= 191 


1310 


IF Yl 


> 191 THEN Yl = ZE 


1320 


RETURN 




1329 


REM 


PRINT VECTOR 




DEFINITIONS 




1330 


PRINT 


: PRINT "0 : 


MOVE UP 




4 : PLOT S< MOVE UP": PRINT 
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1338 
1340 



1350 
1359 



1360 



"1 : MOVE RIGHT 5 : PLOT 
!< MOVE RIGHT": PRINT "2 : MO 
VE DOWN 6 : PLOT S, MOVE 
DOWN": PRINT "3 : MOVE LEFT 

7 : PLOT ?< MOVE LEFT";: GOTO 1050 

REM : * BUILD ROUTINE * 
PRINT "** BUILD **": PRINT 

: INPUT "NUMBER OF SHAPES GO 

ING INTO TABLE ? ";NS: IF NS 
< OE GOTO 6050 
IF NS > = TF GOTO 1340 
REM : SET UP BEGINNING OF 

SHAPE TABLE 
VTAB 24: POKE PP, NS:PP = PP 
+ OE: POKE PP,ZE:PP = PP + 

OE:SS = NS * TW + TW + SLjR ■ 

ZE 

1369 REM i SET UP INDEXES INTO 
TABLE 

1370 T2 = INT ( <SS - SL) / TF) iT 
1 ■ INT <SS - SL - T2 * TF) 

1380 PP = SN * TW + SL: POKE PP,T 

1:PP = PP + OE: POKE PP,T2:P 

P ■ SS 
1390 VTAB 24: BP = ZE:B3 = ZEiBl = 

ZE 
1400 IF Bl = ZE THEN GOSUB 1030 

: GOTO 1400 

1408 REM « ALL SHAPES ARE BUILT 
AFTER RECEIVING 3 VECTORS 

1409 REM : GET 1 OF 3 VECTOR 

1410 GOSUB 1000: Tl = KB 

1419 REM : GET 2 OF 3 VECTOR 

1420 GOSUB 1000: T2 = KB 
1430 PE = Tl + T2 * 8 

1439 REM : GET 3 OF 3 VECTOR 

1440 GOSUB 1000: IF PE = ZE AND 
(KB > TR OR KB = ZE) GOTO 15 
10 

1449 REM : CONVERT VECTORS FOR 
EACH BYTE IN THE TABLE 

1450 Tl = KB: IF KB > TR GOTO 149 


1460 PE = PE + KB * 64: POKE PP,P 

E:PP = PP + OEl IF Tl = ZE AND- 
T2 ■= ZE GOTO 1430 

1470 IF Tl = ZE GOTO 1420 

1480 GOTO 1410 

1490 POKE PP,PE:PP = PP + OE: IF 
T2 ■ ZE THEN T2 = TliTl = ZE 

t GOTO 1430 
1500 GOTO 1420 

1509 REM : REVIEW THE SHAPE 

1510 POKE PP,ZE:PP = PP + OE:N ■= 
ZE: HGR2 :S = ZE: HCOLOR= TR 
: ROT= ZE: SCALE= OE: DRAW S 
N AT X,Y 

1520 BP = ZEiB3 = ZE:B1 = ZE:X1 - 

X.-Yl = Y:B2 = ZE 
1530 VTAB 24: INPUT "IS SHAPE OK 
? "jA*i IF LEFT* (A*,OE) = 

"Y" GOTO 1560 
1540 IF LEFT* (A*,OE) < > "N" GOTO 

1530 
1550 CALL 62450: N = ZE:PP = SS: SOTO 

1400 
1560 IF SN = NS GOTO 1580 
1570 CALL 62450: PRINT : SS = PPs 

SN = SN + OE: GOTO 1370 
1580 IF R < > ZE THEN TEXT : PRINT 

"** TABLE IS BEING CHANGED * 

*": GOTO 3080 
1590 GOTO 6050 

1998 REM : * ADD ROUTINE * 
2000 PRINT "** ADD **": PRINT 

2010 INPUT "NUMBER OF SHAPES ADD 
ING TO TABLE ? ";ND: IF ND < 
OE GOTO 6050 



2020 



2030 
2039 



2040 



2050 
2060 

2070 

2080 

2089 
2090 



NS = PEEK (SL):SN = NS + ND 
: IF SN > 255 GOTO 2010 
POKE SL,SN:PP = SL 
REM : RECOMPUTE INDEXES AND 
MAKE ROOM FOR NEW INDEXES 
FOR I = OE TO NS:PP = PP + 
TW:T1 = PEEK (PP) + PEEK ( 
PP + OE) * TF:T2 = Tl + ND * 
TW:T3 = INT (T2 / TF)lT2 => 

INT (T2 - T3 * TF): POKE PP 
,T2: POKE PP + 0E,T3: NEXT 
EF = PP + TW:T2 = Tl + SL 

= T2 + OE: IF PEEK (T2) < 
ZE GOTO 2060 

T2 + ND * TWlSS = PP + 



T2 

> 

PP 

OE 



T2 - 



POKE PP, PEEK (T2):T2 
OE:PP = PP - OE: IF T2 > = 
EF GOTO 2080 

REM : SET UP VARIABLES FOR 
TRANSFER TO BUILD 
SN = NS + OE:NS = PEEK (SL) 
: GOTO 1370 



2998 REM : * CHANGE ROUTINE * 

3000 PRINT "** CHANGE **": PRINT 
:NS = PEEK (SL)sTl = NS * T 
W + SL:PP = PEEK (Tl) + PEEK 
<T1 + OE) * TF + SL 

3010 INPUT "SHAPE TO BE CHANGED 
? ";ND: IF ND < OE GOTO 6050 

3020 IF ND > NS GOTO 3010 

3029 REM : REPLACE THE LAST 
SHAPE IN THE TABLE 

3030 IF ND = NS THEN R = ZE: GOTO 
3070 

3040 PP = PP + OE: IF ND = NS THEN 
R = ZE: GOTO 3070 

3049 REM : AN INTERNAL SHAPE IS 
BEING CHANGED 

3050 PP = PP + OE: IF PEEK (PP) < 

> ZE GOTO 3050 
3060 PP = PP + OE:T2 = ND * TW + 
SL:T3 = PEEK (T2> + PEEK ( 
T2 + OE) * TF:T4 = PEEK (T2 
+ TW) + PEEK (T2 + TR) * T 
F:T5 = T4 - T3:SS = PP - SLs 
SN = INT (SS / TF):SS = INT 
(SS - SN * TF): POKE T2,SS: POKE 
T2 + OE,SN:EF = PP:R = OE 

3069 REM : INITIALIZE VARIABLES 
SO BUILD CAN CREATE SHAPE 

3070 SS = PP:SN = ND:NS = SN: GOTO 
1 390 

3079 REM : REMOVE OLD SHAPE AND 
ADJUST INDEXES 

3080 R = ZE:T1 = PP - EF:T5 = Tl - 
T5:SN = INT (T3 / TF):SS = 

INT (T3 - SN * TF):NS = ND * 
TW + SL: POKE NS.SS: POKE NS 

+ OE,SN: IF T5 > ZE GOTO 31 
10 



3090 


IF T5 = ZE GOTO 3130 




3100 


T2 = PP - OE:PE = 


T4 + 


SL - 




OE:PP = T4 + SL + 


T5 - 


OE:SS 




= OE: GOTO 3120 






3110 


PE = PPsPP = PP + 


T5:SS = 




0E:T2 = T4 + SL 






3120 


PE = PE + SS:PP = 


PP + 


SS: POKE 




PP, PEEK (PE): IF 


PE < 


> T2 




GOTO 3120 






3130 


PE = EF + T5:PP = 
= PP + Tl 


SL + 


T3:T1 


3140 


POKE PP, PEEK (PE) :PP 


= PP + 




OE:PE = PE + OE: IF PP 


< Tl GOTO 




3140 






3150 


PP = NS:EF = PEEK 


(SL 


+ TW) 




+ PEEK (SL + TR) 


* TF 


+ SL - TW 


3160 


PP = pp + TW:T2 = 


PEEK 


(PP) 




+ PEEK (PP + OE) 


* TF 


:T2 = 



I 



(Continued) 
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T2 + T5:T1 = INT (T2 / TF) : 
T2 = INT (T2 - Tl * TF) : POKE 
PP.T2: POKE PP + OE.T1: IF P 
P < > EF BOTO 3160 



3170 


GOTO 6050 




3998 


REM : * DELETE ROUTINE 


* 


4000 


PRINT "** DELETE **": 


PRINT 




:EF = PEEK <SL):PE = EF 


* T 




U + SL:PE = PEEK <PE) + 


PEEK 



(PE + OE) * TF + SL:NS = EF 
4010 INPUT "SHAPE TO BE DELETED 

? ";ND: IF ND < = 2E THEN PRINT 
"** TABLE IS BEING COMPRESSE 
D **": GOTO 4080 

REM : ERROR CHECK SO TABLE 
WONT BE DESTROYED 
IF (ND > EF) OR ND < ZE GOTO 422 
IF NS = OE GOTO 4220 
SN = SL + ND * TW:PP = PEEK 
<SN) + PEEK (SN + OE) * TF + 
SL: IF PEEK (SN) = ZE GOTO 4220 
REM : ZERO INDEX TO SHAPE 
POKE SN,ZE: POKE SN + OE, ZE 



4019 

4020 
4030 
4040 



4049 
4050 



4060 IF PEEK (PP) = ZE GOTO 4210 



4069 REM : ZERO SHAPE DEFINITION 



4070 
4080 

4088 
4089 

4090 

4100 

4110 



4120 
4130 



4140 
4150 



4160 
4170 



4180 



4190 
4200 



POKE PP,ZE:PP = PP + OE: GOTO 40&0 
Tl = PE:PP = NS * TW + SL + 
TW:PE = SL + EF * TW + OE 
REM : COMPRESS ZEROS OUT OF TABLE 

REM : LEAVE A SINGLE BYTE 
OF ZEROS BETWEEN SHAPES 
Tl = Tl + OE: IF PEEK (Tl) < 

> ZE GOTO 4090 
PE = PE + OE: IF PEEK (PE) = 
ZE GOTO 4100 

POKE PP, PEEK (PE):PP = PP + 
OE:PE = PE + OE: IF PEEK (P 
E) < > ZE GOTO 4110 

IF PE = Tl GOTO 4170 

IF PEEK (PE + OE) < > ZE GOTO 
4110 

POKE PP, PEEK (PE):PP = PP + 
OE 

PE = PE +■ OE: IF PEEK <PE) = 
ZE GOTO 4150 

IF PE < Tl GOTO 4110 

POKE PP.ZE: POKE SL,NS|EF « 
ZE:PP ■= SL + TWjT2 = ZEiT3 = 
NS * TW + TW:T1 = T3 + SL 
T4 = T3 + T2:T5 = INT (T4 / 
TF):T4 = INT (T4 - T5 * TF) 
1 POKE PP,T4: POKE PP + OE,T 
5:PP = PP + TW:EF = EF + OE: 

IF EF = NS GOTO 6050 
Tl = Tl + 0E:T2 = T2 + OE: IF 

PEEK (Tl) < > ZE GOTO 4190 
Tl = Tl + 0E:T2 «= T2 + OE: GOTO 4180 



4210 PRINT "SHAPE DELETED": PRINT 
:NS = NS - OE: GOTO 4010 

4220 PRINT "** ERROR ** INVALID 

SHAPE NUMBER": PRINT : GOTO 4010 

4998 REM : * DISPLAY ROUTINE * 

5000 NS = PEEK (SL):T1 = NS * TW 
+ SL:T2 = PEEK (Tl + OE):T 
1 = PEEK (T1):T1 = T2 * TF + 
Tl + SL 

5009 REM : FIND THE END OF THE 
TABLE 

5010 Tl = Tl + OE: IF PEEK (Tl) < 

> ZE GOTO 5010 

5019 REM : COMPUTE ENDING ADDRS 
<T1), AND LENGTH (T2) 

5020 Tl = Tl + 0E:T2 = Tl - SL 
5030 HOME : TEXT : VTAB TR: PRINT 



5040 



5050 



5060 
5070 
5079 

5080 



5089 
5090 

5100 
5110 

5997 
5998 
5999 
6000 



***** SHAPE TABLE REVI 
EW *****": PRINT : PRINT " 
TABLE STARTING LOCATION -> " 
;SL(" DECIMAL": PRINT : PRINT 

"TABLE ENDING LOCATION > 

";T1;" DECIMAL" 

PRINT : PRINT "LENGTH OF T 

ABLE > ";T2;" BYTES" 

: PRINT : PRINT : PRINT "NUM 
BER OF SHAPES IN TABLE- > " ; N 
S 

VTAB 22: INPUT 
RS (FIRST, LAST) 
SN > NS OR SN 

IF SN = O GOTO 6050 

IF T5 > NS THEN T5 = NS 

REM : DRAW SHAPE (I) FROM 
THE TABLE 

FOR I = SN TO T5: HGR2 :S ■ 
ZE: COLOR= TR: SCALE= OE: ROT= 
ZE: DRAW I AT X.Y: VTAB 23: PRINT 
"SHAPE NUMBER "5 I 

REM : CHECK FOR "0" TO QUI T 
FOR T4 = OE TO 150: IF PEEK 

( - 16384) = 176 GOTO 5110 



"SHAPE NUMBE 

";SN,T5: IF 
T5 GOTO 5050 



NEXT 
POKE 
5030 
REM 
REM 
REM 



: NEXT 
- 16368, ZE:S = OE: BOTO 



******************** 
* MAIN PROGRAM * 

******************** 

S = OEi HGR2 : HOME : TEXT : 
VTAB 2: PRINT "********** 
S H A P E R 2 *********** 
": VTAB 3i PRINT TAB ( 2)|"» 
"j TAB( 39)("»": PRINT TAB ( 
3>s"*") TAB( 3B)|"*"s PRINT 

TAB( 4)|"*" j TAB( 12) ; "A UT 
ILITY PROGRAM"! TAB ( 37))"*" 



6010 PRINT TAB( 5>("*"> TAB ( 14 
) j "FOR MANAGING"; TAB ( 36) 1 " 
*": PRINT TAB( 4>j"*"| TAB ( 
14) I "SHAPE TABLES") TAB ( 37) 
;"*"i PRINT TAB( 3)|"*"| TAB ( 
38);"*": PRINT TAB ( 2);"*"| 
" COPYRIGHT 1980 CLEMENT D. 
OSBORNE"; TAB< 39)|"»" 

6020 FOR I = OE TO 40: VTAB 10: HTAB 
I: PRINT "*": NEXT 

6028 REM : GET STARTING LOCATION 
AND POKE FOR DRAW COMMANDS 

6029 REM : BET STARTING LOCATION 

6030 PRINT : PRINT "WHAT IS STAR 
TING LOCATION": INPUT "OF TH 
E TABLE (IN DECIMAL) ? ";SL: 

PRINT : PRINT "DOUBLE CHECK 
STARTING LOCATION !": PRINT 
: INPUT "IS IT CORRECT ? "!A 
S: IF LEFT* (A*,OE) < > "Y 
" GOTO 6030 
6035 IF SL = THEN SL = 24576 
6040 PP = INT (SL / TF): POKE 23 
3,PP:PP = INT (SL - PP * TF 
) : POKE 232, PP 

6049 REM : MAIN MENU 

6050 TEXT : HOME : VTAB 3: PRINT 
"FUNCTIONS AVAILABLE:": PRINT 
: PRINT " 0. EXIT FROM SHAP 
ER": PRINT : PRINT " 1. BUI 
LD SHAPE TABLE": PRINT : PRINT 

" 2. ADD SHAPES TO TABLE":' PRINT 
: PRINT " 3. CHANGE SHAPE I 
N TABLE" 

6060 PRINT : PRINT " 4. DELETE 

SHAPES FROM TABLE": PRINT : PRINT 
" 5. REVIEW SHAPE TABLE": PRINT 
: PRINT " 6. SAVE/LOAD SHAP 
E TABLE": PRINT : VTAB 20: INPUT 
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6070 



6997 
699B 
6999 
7000 



"FUNCTION ? ";Tli IF Tl < ZE 
OR Tl > 6 GOTO 6050 
CALL 62450: PP = SLsSN = OEi 
HOME : ON Tl GOTO 1340,2000 
,3000,4000,5000,7000: GOTO 9 
999 
REM : ******************** 
REM : * I/O ROUTINE * 
REM : ******************** 
VTAB 2: PRINT "** SAVE/LOA 
D **": PRINT : PRINT " 0. E 
XIT"i PRINT i PRINT " 1. LOA 
D FROM TAPE": PRINT : PRINT 
" 2. SAVE TO DISK": PRINT I PRINT 
" 3. LOAD FROM DISK": PRINT 



7010 PRINT 



4. LIST CATALOG": PRINT 



7020 D4* = CHR* (4): INPUT " FUN 
CTION ? "jT2: IF T2 < ZE OR 
T2 > 4 GOTO 7000 

7030 HOME : ON T2 GOTO 7040,7060 
,7100,7120: GOTO 6050 

7040 PRINT : INPUT "HOW LONG IS 
THE TABLE UN DECIMAL) ?"5T1 
: IF Tl. = ZE GOTO 6050: 

7050 T3 = PEEK (116) * TF + PEEK 

(115): HIMEM: Tl + SL + OE: PRINT 
: PRINT "ST ART- TAPE, WHEN RE 
ADY HIT ANY KEY": GET A*: SHLOAD 
: PRINT : INPUT "HIT RETURN 
TO RETURN TO MENU";A»: HIMEM: 
T3: GOTO 6050 

7060 PRINT : PRINT "WHAT IS THE 
OUTPUT FILE NAME ? ": INPUT 
A*:T1 = PEEK (SL) * TW + SL 
:T2 = PEEK (Tl + 0E):T1 = PEEK 
(T1):T1 = T2 * TF + Tl + SL 



7070 Tl = Tl + OE: IF PEEK <T1) < 
> ZE GOTO 7070 

7080 T2 = Tl + OE - SL 

7090 PRINT D4*;"BSAVE ";A*j",A"; 
SL;",L";T2: PRINT : PRINT A* 
: PRINT " HAS BEEN WRITTEN 
TO DISK": PRINT : PRINT "STA 
RTING LOCATION : ";SL,"LENGT 
H : ";T2: GOTO 7140 

7100 PRINT : PRINT "WHAT IS THE 
INPUT FILE NAME ?": INPUT A« 

7110 PRINT D4«; "BLOAD ";A*j",A"S 
SL: PRINT : PRINT A*: PRINT 
" HAS BEEN LOADED AT ";SL: GOTO 
7140 

7120 HOME : PRINT D4»; "CATALOG" : 
PRINT D4* 

7130 PRINT : PRINT "HIT ANY KEY 
TO CONTINUE": GET A*: HOME : 
GOTO 7000 

7140 PRINT : PRINT "HIT ANY KEY 
TO CONTINUE": GET A*: GOTO 6 
050 

899S REM : * ERROR ROUTINES * 

9000 IF PEEK (222) = 254 THEN RESUME 
9005 IF PEEK (222) > AND PEEK 

(222) < 16 GOTO 9040 
9010 PRINT : PRINT "** APPLESOFT 

ERROR ** "; PEEK (222): PRINT 
: PRINT "HIT ANY KEY TO CONT 
INUE": GET A*: GOTO 1 
9040 PRINT : PRINT "** DOS ERROR 
** "; PEEK (222): GOTO 7130 

9999 END 






JMCftO 



DROWNING IN PAPERWORK? 

The MAGIC WINDOW word processing system lets you breath easier. 

MAGIC WINDOW is the professional tool that will lessen the efforts of communication and improve your productivity! 

Secretaries at APPLE, Engineers, writers of leading computer magazines and U.S. government officials have 

selected and use MAGIC WINDOW over all the other 

word processors available for the APPLE II compute^ 

MAGIC WINDOW'S overwhelming appeal amonc 

experts and novice computer users originates^ 

simulation of a standard typewriter. Add thr """ 

of disk file storage, four way scrolling provi« 

of 80 column documents, logically placed a 

learn single key editing commands, and you" 

processor that is truly magical. 

Take a relaxing deep breath and ask your loce 

computer store for MAGIC WINDOW. 

ANNOUNCING BASIC MAIL 

BASIC MAILER is a mailing list merge system _ 
to take MAGIC WINDOW document files and re 
names, addresses or any other section of the doc_.. 
individual data, creating customized letters, invoic 
etc. BASIC MAILER uses the same human engineere 
systems used by MAGIC WINDOW. 

Together MAGIC WINDOW and BASIC MAILER 

create an affordable, powerful and professional 

word processing mailing system. The uses for either of these 

systems are almost unlimited. 




SDF7RPEW 



10432 Burbank Boulevard • North Hollywood, California 91601 • (213)985-5763 
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SENSIBLE SOFTWARE, INC. is pleased to introduce... 
OUR 1981 COLLECTION OF SUPERIOR SOFTWARE FOR THE APPLE COMPUTER... 

APPLESOFT-PLUS STRUCTURED BASIC [APLUB] SEB.OO 

32K+ , Disk II. ROM/RAM Applesoft, Apple ll/Apple II + 

APLUS is a 4K machine language utility thai adds Ihe following structured programming commands to Applesoft basic: I) WHEN.. ELSE. FIN, 2) UNTIL, 3) 
WHILE. 4) UNLESS. 5) CASE. 6) SELECT (variable), and 7) (OTHERWISE). Multi-line IF.. THEN statements are also supported. APLUS allows the use ol 
"named" subroutines or "procedures". The programmer can now instruct a program to "DO CURVE-FIT" without worrying about Ihe location ol Ihe 
subroutine APLUS automatically indents "&LIST"ed programs to clarify the logic How. The APLUS "&C0NVERT" command replaces the above structured 
programming commands with "GOTO'"s and "G0SUB"'s to provide a standard Applesoft program as output. New programs can now be written using 
"G0T0"-less logic. 

APPLESOFT PROGRAM OPTIMIZER [AOPT] SSO.OO 

32 + . Disk II, ROM/RAM APPLESOFT. Apple ll/Apple II + 

AOPT is a 2.2K machine language utility that will substantially reduce the size of an Applesoft program without affecting the operation ot the program. AOPT 
automatically: 1) Shortens variable names. 2) Removes remarks. 3) Removes unreferenced lines, 4) Appends short lines together, 5) Removes extra colons, 
and 6) Renumbers line numbers. AOPT will convert a verbose, well documented, development version ol a program into a memory-etlicient, more secure, pro- 
duction version ot the same program. This is the ORIGINAL and the BEST optimizer on the software market today! 

DOS PLUS S25.00 

32+, Disk II, DOS 3.3, Apple ll/Apple 11 + 

DOS PLUS is Ihe software solution lor living with both 13-sector (DOS 3.1, 3.2. and 3.2.1) and 16 sector (DOS 3.3) Apple diskettes. DOS PLUS adds 8 new 
commands to Apple DOS. Three ol these are built-in and live are user definable. The built in commands include: 1) ".F" to "Hip" belween DOS 3.2 and 3.3 
(The user need not re-boot and any program that resides in memory will not be affected by the Hip. The DOS version can even be changed within a program!). 2) 
",S"' status command intorms you what DOS version is currently active, and 3) ".B" BLOAD- analysis is also provided to inlorm the user ol the starting ad- 
dress and length ol the last accessed binary tile. DOS PLUS also includes a DOS COMMAND CHANGER program to allow easy customization ol Apple OOS com- 
mands lo suit individual lastes. 

DISK OROANIZER II — NEW — S3COO 

48K. Disk II. Apple ll/Apple II + 

DO II is the fastest and friendliest utility available today lor organizing files on an Apple II diskette. DO II provides the following lunctions: 1) TITLING in Nor- 
mal, Inverse, Flashing. Lower case, and other characters normally not available, 2) CUSTOM REORDERING ot the directory, 3) ALPHABETIZING, 4) DYNAMIC 
DISPLAY ot ALL tilenames on a diskette (including deleted Hies), 5) RENAMING tiles wilh Ihe same character options as TITLING, 6) UNDELETING, 7) 
DELETING, 8) PURGING deleted tiles, 9) LOCKING (all or some), 10) UNLOCKING (all or some). 1 1) USE ol DOS sectors for increased data storage, and 12) a 
SIMULATED CATALOG to show the moditied directory before it is written to the diskette. DO II is completely MENU DRIVEN and atlains it's speed by altering a 
RAM version ot the catalog. DO II uses a very powerful SMART KEY to automatically locate the next valid filename for any specitied disk operation. Compatible 
with DOS 3.1 , 3.2, 3.2.1 , and 3.3 as well as MUSE DOS to allow manipulation ot SUPER TEXT tiles! (Note: Updates available lor $5.00 and original diskette.) 

PASCAL LOWER CASE — NEW — SS5.00 

48K+ , Disk II. Apple ll/Apple II + , Language System 

This is the most recent commercially available LOWER CASE MOD lor Pascal tor the Apple II. It is the only currently available modification that is compatible 

with both versions ot Pascal (1 .0 and 1 . 1 ). The Pascal version is automatically checked prior to updating system Apple. II you have any of the hardware lower 

case adapters you can now input the following characters directly Irom the keyboard: | * v t 3 _. and \ . This moditication does NOT interfere 

with any ot the 'Control' character lunctions implemented by the Pascal environment and will 'undo' any alterations made by other commercially released 

modifications. 

QUICKLDADER SSS.OO 

48K+ . Disk II, Apple ll/Apple II + ... (2 Disks) 

II you lind yoursell doing the same things over and over - OL will help you do it (aster! QL is a unique disk that lets you load DOS, a language card (optionally), 
and an application program ot your choice extremely rapidly. QL boots as a 13 or 16 sector diskelte and is easy to set up and use. To change the setup, you 
merely load your Apple RAM with the new data and use the "RECONFIGURE" option ot QL. The next time you boot your QL disk, it will quickly load your new 
setup (Language Card. DOS, Application program) into your Apple! QL can reduce Ihe time to perform these lunctions by up to 80%! Now that you've read 
IMS, you say "But I can already do all ol that!" QL doesn't do anything new - it just does it MORE CONVENIENTLY and FASTER! Try it, you'll like it! 

DISK RECOVERY ["THE SCANNER") S3COO 

48K+ , Disk II, Apple ll/Apple II + 

This program is long overdue. You need no longer be concerned with the problem ol physically damaged disks. Just as "Apple Pascal" provides a "BAD 
BLOCK SCAN". DISK RECOVERY will do a complete scan ol your Apple diskettes' recording surface. Damaged areas will be "marked" as used in the disk 
directory so that no attempts will be made to "WRITE" lo a bad sector. The VTOC will be completely redone to retlect both the bad sectors and actual disk 
usage A complete report is generated advising the user of all corrections. A resulting "DISK MAP" is presented tor your review. The greatest advantage ol 
this program over the other versions is that it can be used on either NEWLY INITIALIZED DISKS or disks that ALREADY CONTAIN PROGRAMS as well as the 
SPEED ot analysis. THE SCANNER is fully compatible with both 13 and 16 sector diskettes. This is a must tor all Disk II owners! 

ALSO AVAILABLE: SENSIBLE SOFTWARE, INC. 

SUPER DISK COPY III JB30.00 6619 PERHAM DRIVE / W. BLOOMFIELD, MICHIGAN 48033 

MULTI-DISK CATALOG III'.............. SSS.OO 313 399 8877 

THE IMEW PROTECTOR SESO.OO uiCTKunnn una rnMF 

(Can or write lor UKonMM) VISA and MASTERCARD WELCOME 

1 IIM/VQl ANDEPII ............. S1B.OO Michigan Residents add 4% Sales Tax 

uuivHn uMnutn pjjs, aaa $i .00 postage & handling lor each Hem ordered 

MASTER MAZE S1S.OO 
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What is VersaWriter? 

VersaWriter is an inexpensive drawing 
tablet for the APPLE II that lets you 
trace a picture and have it appear on 
TV display. 



VersaWriter is a comprehensive 
software drawing package which lets 
you color in drawings with over 100 
different colors. 

VersaWriter is a shape compiler that 
converts anything on the screen 
automatically into a standard shape 

table. 

VersaWriter is a text writer for labeling 
pictures with text in six colors and 
five sizes. Use English or Greek, 
upper or lower case letters. 



VersaWriter is much more! Draw with 
brush, create schematic drawings, 
compute area and distance, edit pic- 
tures, save, recall and more. 

VersaWriter requires ROM APPLESOFT 

and 48K memory. 

$299 Suggested Retail 

UNIQUE OFFER 

Send us YOUR disk and $1 . We will promptly 

return the disk with a slide package of 10 

color pictures drawn with VersaWriter. 





□ Enclosed is $1 and my disk. 
Send me the slide package. 

□ Send more information including 
VersaWriter dealers in my area. 

DEALER INQUIRIES INVITED. 

NAME 
ADDRtSS 



CITY STATE ZIP 

Send To: Versa Computing, Inc. • 887 Conestoga Circle • Newbury Park, CA 91320 • (805) 498-1956 
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List Controller 



LIST CONTROLLER provides 
flexibility and ease of operation 
when using the LIST command 
in Applesoft and Integer BASIC 
and the TRACE command when 
using the Apple II System 
Monitor. The programmer can 
control the speed of the output 
to the text screen using the 
game paddle. As an added 
bonus those programmers using 
Integer BASIC and the Monitor 
can interrupt output to the text 
screen without pressing the 
RESET key. 



Preston R. Black 
16 Durham Street 
Boston, MA 02115 



The process of debugging a program is 
particularly tedious on the Apple, since 
there is limited control of the LIST and 
TRACE functions. Applesoft allows the 
TRACE and LIST speed to be changed, 
and the screen output can be interrupted 
with 'CTRL-C. However, both Integer 
BASIC and the monitor lack even these 
primitive capabilities. 

While Applesoft does provide the 
programmer with these useful debug- 
ging aids, there is little flexibility in the 
system. Once a particular speed is set in 
Applesoft, there is no way to alter the 
speed without interrupting the listing 
and starting over again. In addition, 
Applesoft does not provide any means 
by which the programmer can interrupt 
the output of his listing for his perusal 
and then continue in a simple fashion. A 
program which would give the program- 
mer the debugging aids of Applesoft in 
Integer BASIC and in the Apple monitor, 
and also provide all three langauges with 
the flexibility mentioned above would 
be very useful. 



LIST CONTROLLER is a short 
assembly language program which does 
this. LIST CONTROLLER uses the 
Apple game paddles to control the speed 
of output to the text screen. The pro- 
grammer thus has the ability to change 
his output speed from the equivalent of 
SPEED = to SPEED = 255 at any time 
during his output. The programmer can 
therefore speed over those portions of 
his program which have been debugged, 
and then slow down to concentrate on 
those portions of the program with 
which he is having difficulty. LIST 
CONTROLLER also allows the pro- 
grammer the option to output his listing 
to the text screen one line at a time, or 
an entire page (i.e. one full screen) at 
once. All of this can be done without in- 
terrupting the LISTing or the TRACE. 

LIST CONTROLLER also allows the 
programmer using Integer BASIC and 
the Apple monitor to interrupt his 
listing at any time without the necessity 
of pressing the RESET key. 

How it Works 

LIST CONTROLLER consists of four 
interconnected routines. The first of 
these is PDDLRD, which controls out- 
put speed, using paddle #0 as the con- 
troller. The Apple game paddles are 
analog inputs connected to 150K ohm 
variable resistors. The variable 
resistance between each input and the 
+ 5 volt power supply can be used as a 
timing circuit. As the resistance of the 
input varies, the timing characteristics 
of its corresponding time circuit changes 
accordingly. When the timing loops of 
the paddles are reset, all the paddle loca- 
tions (-16284 ($C064) to -16281 
($C067)| become greater than 128 (that 
is, their high order bit is set). The time 
for these values to drop below 128 is 
directly proportional to the setting of 
the game paddle associated with that 
location. By polling the game paddle 
location and counting until it goes 
below 128, we can get a number relative 
to the setting of the game paddle. 



The good old Apple monitor provides 
us with a routine which does exactly 
what we want. PREAD (located at 
$FB1E) polls the paddle pointed to by 
the x-register, and returns a value from 
to 255 in the y-register, depending upon 
the setting of the paddle. The value in 
the y-register can then be used to in- 
itiate the accumulator before jumping to 
the monitor WAIT ($FCA8) subroutine. 
This is another useful subroutine which 
will initiate a delay of a specific amount 
of time, depending upon the value of the 
accumulator when this routine is called. 
The delay, in microseconds, is given by 
the equation 

DELAY = 13 + 13.5*A + 2.5*A 2 

where A is the contents of the 
accumulator. By interrelating the 
PREAD subroutine and the WAIT 
subroutine, output speed is controlled 
by the game paddle. 

The second routine in LIST CON- 
TROLLER is the PAGE routine. This 
routine outputs the listing one text 
screen page at a time. The text screen is 
first cleared by using the HOME 
subroutine in the Apple monitor. The 
listing is then output to the text screen. 
When the screen has been filled, the 
listing stops until another command is 
given. To understand how it is deter- 
mined that the text screen has been 
filled, one must understand how 
characters are output to the screen. 

Pages 14-17 of the Apple U Reference 
Manual tell us that the text screen 
occupies pages four through seven of 
memory. If we examine the diagram on 
page 16, we see that the lines of the text 
screen are not ordered sequentially. 
However, this is not important since 
this diagram also shows us that the last 
line of the text screen is at $7D0. And by 
further knowing that the address of the 
next line to be used for outputting to the 
text screen is calculated in BASCALC 
($FBC1) and is then stored in BASL($28) 
and BASH($29), we can poll these 
addresses until the end of the text screen 
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is reached (i.e. BASL = $D0 and 
BASH = $07 1 . We then wait for the. next 
command. 

The STEP routine is a very simple 
routine which polls the output to the 
text screen until a 'carriage return' is 
detected, indicating the end of a line of 
output. We then go to the DELAY 
routine which waits for another 
command. 

The final routine in this program is 
the DONE routine. When this routine is 
called, the output hooks at CSWL($36) 
and CSWH($37) are reset to the original 
monitor output routine at COUT1. It 
then determines which language the 
user is using by polling PROMFT($33), 
the address at which the monitor holds 
the prompt character. A jump to the 
warm start of the particular language is 
then executed. 

The well-documented program 
which is listed should be self 
explanatory and should help the 
interested programmer to fully under- 
stand the routines. The program can be 
relocated with a few changes. 



How to Use LIST CONTROLLER' 

Because of the idiosyncracies of the 
three languages in the standard Apple n, 
I have had to use three different methods 
for using this program— one for each 
language. The program is first BLOAD- 
ed from disk. If you are in Applesoft, 
type '&:LIST' to activate LIST CON- 
TROLLER. The colon is necessary for 
proper handling of the command. In In- 
teger BASIC typing 'CALL 768' will ac- 
tivate LIST CONTROLLER and begin 
listing your program automatically. To 
use LIST CONTROLLER from the 
monitor type (CTRL-Y)xxxxT where xx- 
xx is the address with which you wish to 
begin tracing. The way the program is 
written, game paddle #0 is used to con- 
trol output speed. To change to paddle 
#1, change the 'LDX #$0' in the PD- 
DLRD routine to 'LDX $#!'. 



When I'm not programming or playing 
with My Apple II, I am a research fellow 
in the Department of Surgery at the 
Brigham and Women's Hospital in Boston. 
I have had my Apple for two years and 
have taught myself assembly language 
over the last twelve months. Although I 
use my Apple primarily for personal 
entertainment, 1 have had occasion to use 
it in my research projects. 



03F5 

03F5 

03FS 4C0003 

03F8 

03F8 

03F8 

03F8 

03F8 

03F8 4C0003 

03FB 

03FB 

03FB 

03FB 

03FB 

0300 

0300 

0300 

0300 A912 

0302 8536 

0304 A903 

0306 8537 

0308 A533 

030A C9BE 

030C D003 

030E 4C4BE0 

0311 

0311 60 
0312 
0312 
0312 
0312 
0312 
0312 

0312 204AFF 
0315 A200 
0317 201EFB 
031A 98 
031B 20A8FC 
031E 203FFF 
0321 20F0FD 
0324 AD00C0 
0327 C99B 
0329 F050 
032B C9A0 
032D F06B 
032F C98D 
0331 F004 



Listing 1 



LIST CONTROLLER 

BY 
PRESTON R BLACK 



. a******************************* 
1 * 

> * 

; * 

; * 

i * 

i * 

i * 

; * 

! * 

; * 

; * 

; • 

; • 

; * 

; * 

; * 

; * 

; * 



i TO USE 'BLOAD' FROM THE 

! DISK. THEN ACTIVATE BY 

' USING THE FOLLOWING 

I COMMANDS : 

l 

> APPLESOFT — '6:LIST' 

' INTEGER BASIC— 'CALL 768" 

• MONITOR— ' (CTRL-Y)XXXX' 

• WHERE XXXX IS THE ADD- 
» RESS FROM WHICH YOU 

• WOULD LIKE TO START 

• TRACING 
It 
******************************** 






BASL 

BASH 

PROMPT 

CSWL 

CSWH 

RETURN 

ESCAPE 

SPACE 

IPRMPT 

PGBTM 

APRMPT 

KBRD 

STRB 

ABAS I C 

IBASIC 

INLIST 

PREAD 

HOME 

WAIT 

COUT1 

RSTORE 

SAVE 

HOI! 



EPZ 

EPZ 

EPZ 

EPZ 

EPZ 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



$28 

$29 
$33 

S36 

$37 

$8D 

$9B 

SAO 

SBE 

SD7 

$DD 

SC0OO 

SC010 

SD43C 

SE'003 

SE04B 

SFB1E 

SFCS8 

SFCA8 

SFDF0 

SFF3F 

SFF4A 

SFF69 



'-. SET AMPERSAND (i! JUMP VECTOR FOR APPLESOFT 



ORG S3F5 
AMPRSD: 

J HP BEGIN 

• SET CONTROL-Y JHP VECTOR FOR THE MONITOR 



a i 



CTRLY: 



ORG S3F8 
JHP BEGIN 



,,..,.... L1ST CONTROLLER «»******* 
ORG S300 



BEGIN: 



RETRN : 



LDA t PDDLRD 
ST A CSWL 
LDA /PDDLRD 
STA CSWH 
LDA PROMPT 
CMP MPRHPT 
BHE RETRN 
JHP INLIST 

RTS 



; RESET OUTPUT HOOKS 
; TO ROUTINE AT PDDLRD 



IS PROMPT ">'? 

NO — CONTINUE 

YES — TO INTEGER BASIC LIST 



* PADDLE READING ROUTINE 



PDDLRD: 



JSR SAVE 
LDX IS00 
JSR PREAD 
TYA 

JSR WAIT 
JSR RSTORE 
JSR COUT1 
LDA KBRD 
CMP * ESCAPE 
BEQ DONE 
CMP SSPACE 
BEQ STEPS 
CMP # RETURN 
BEQ PAGE 



SAVE REGISTERS 

SELECT PADDLE 10 

READ PADDLE VALUE IN Y REGISTER 

HOVE VALUE TO ACC 

TO MONITOR DELAY ROUTINE 

RESTORE REGISTERS 

OUTPUT CHARACTER 

POLL KEYBOARD 

? 'ESCAPE' 

YES— FINISHED 

? 'SPACE' 

YES — OUTPUT ONE LINE 

? 'CR' 

YES— OUTPUT ONE PAGE 



(Continued) 
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0333 

0336 

0337 

0337 

0337 

0337 

0337 

0337 

0337 

033A 

033C 

033E 

0340 

0342 

034S 

0348 

034B 

03 4C 

034C 

03 4F 

0351 

0353 

0355 

0357 

0358 

0358 

0358 

0358 

0358 

0358 

0358 

035B 

035D 

035F 

0361 

0363 

0365 

0368 

036B 

036B 

036D 

036F 

0372 

0374 

0376 

0378 

037A 

037B 

037B 

037B 

037B 

037B 

037B 

037B 

037E 

0380 

0382 

0384 

0386 

0388 

038A 

038C 

03 8F 

038F 

0391 

0393 

0396 

0396 

0399 

03 9A 

03 9A 

C39A 

03 9A 

03 9A 

03 9A 

03 9A 

039D 

03 9F 

03A1 

03A3 

03A5 

03A6 

03A6 

03A8 

03AA 

03AD 

03AE 

03AE 

03B1 

03B3 



2C10C0 
60 



2C10C0 

A94C 

8536 

A903 

8537 

204AFF 

2058FC 

203FFF 

60 

20F0FD 

A528 

4529 

C9D7 

F001 

60 



ADOOCO 

10FB 

C9A0 

F039 

C98D 

D006 

2C10C0 

4C3703 

C99B 

FOOC 

2C10C0 

A912 

8536 

A903 

8537 

60 



2C10C0 

A9F0 

8536 

A9FD 

8537 

A533 

C9BE 

D003 

4CO3E0 

C9DD 
D003 
4C3CD4 

4C69FF 
60 



2C10C0 

A9A6 

8536 

A903 

8537 

60 

C98D 
F004 
20F0FD 
60 

20FOFD 

D0A5 

60 



Listing 1 (Continued/ 



BIT STRB 
RTS 



CLEAR KEYBOARD 
REJOIN OUTPUT 



ROUTINE TO OUTPUT ONE PAGE TO THE SCREEN 



BIT STRB 
LDA tPAGEl 
STA CSWL 
LDA /PAGE1 
STA CSWH 
JSR SAVE 
JSR HOME 
JSR RSTORE 
RTS 

JSR COUT1 
LDA BASL 
EOR BASH 
CMP IPGBTM 
BEQ DELAY 
RTS 



; RESET OUTPUT HOOKS 
; TO ROUTINE AT PAGE 



; SAVE REGISTERS 

; CLEAR SCREEN 

; RESTORE REGISTERS 

; REJOIN OUTPUT 

; OUTPUT A CHARACTER 

; ARE WE AT THE END 

; OF THE SCREEN PAGE? 

; YES— WAIT FOR ANOTHER INSTRUCTION 

; ELSE REJOIN OUTPUT 



DELAY ROUTINE AND KEYBOARD SERVICING ROUTINE 



DELAY: 



DELAY1 : 



LDA 
BPL 
CMP 
BEQ 
CMP 
BNE 
BIT 
JMP 

CMP 
BEQ 
BIT 
LDA 
STA 
LDA 
STA 
RTS 



KBRD 
DELAY 
# SPACE 
STEPS 
•RETURN 
DELAY 1 
STRB 
PAGE 

•ESCAPE 

DONE 

STRB 

•PDDLRD 

CSWL 

/PDDLRD 

CSWH 



?KEY PRESSED 
NO — WAIT 
? ' SPACE ' 

YES--OUTPUT ONE LINE 
? "CR' 

YES— OUTPUT ONE PAGE 

? ' ESCAPE ■ 
YES— FINISHED 
IF ANY OTHER KEY 
IS PRESSED THEN 
RESET OUTPUT HOOKS 
TO ROUTINE AT PDDLRD 

REJOIN OUTPUT 



LIST CONTROLLER EXIT ROUTINE 



BIT STRB 
LDA »COUTl 
STA CSWL 
LDA /COUT1 
STA CSWH 
LDA PROMPT 
CMP (IPRMPT 
BHE DOME2 
JMP IBASIC 

CMP »APRMPT 
BME DONE3 
JMP ABAS I C 

JMP MON 
RTS 



RESET OUTPUT HOOKS 

TO REGULAR OUTPUT ROUTINE AT COUT1 



IS PROMPT '>' 

YES— WARMSTART INTEGER BASIC 

IS PROMPT ' J ' 

YES — WARMSTART APPLESOFT 

DEFAULT TO MONITOR WARMSTART 



ROUTINE TO OUTPUT ONE LINE 



BIT STRB 
LDA (STEP 
STA CSWL 
LDA /STEP 
STA CSWH 
RTS 

CMP JS8D 
BEQ STEP1 
JSR COUT1 
RTS 

JSR COUT1 
BNE DELAY 
RTS 
END 



RESET OUTPUT HOOKS 
TO STEP ROUTINE 



REJOIN OUTPUT 
?CARRIAGE RETURN 



NO — CONTINUE OUTPUT 
REJOIN OUTPUT 



YES — OUTPUT CARRIAGE RETURN 
THEN TO DELAY ROUTINE 
REJOIN OUTPUT 



THE 

COMPLETE 

GRAPHICS 

SYSTEM 



by Mark Pelczarski 




JMCRO 



• 108 color choices for auto- 
matic filling and hi-res 
characters. 

• Drawing modes include 
lines, circles, ellipses, auto- 
matic filling, and user de- 
finable "paintbrushes". 

• Design hi-res characters and 
text fonts that can be plot- 
ted at any x, y location on 
the screen. 

• Design shape tables point- 
by-point with keystrokes 
or paddles. 

• Easily create, edit, and 
manipulate 3-D objects on 
the screen. 3-D figures 
may be entered by coor- 
dinates, or by drawing the 
figure's flat surfaces on the 
screen, then assembling 
the parts visually. 

• Thorough, easy to use 
manual even shows how to 
use graphics and machine 
language routines in your 
programs. only $59.95 

Also available: ■ 

THE lOO-COLOR DRAWING 
SYSTEM contains all of the 
2-dimensional functions of 
the above. 

THE 3-D DRAWING SYSTEM 
contains the 3-dimensional 
utilities. $32.95 each 

DOS 3.2 or 3.3, requires Applesoft 
firmware or language system. 

co-op 6 
software 

Post Office Box 432 

West Chicago, IL 60 185 

(312)231-0912 

V ISA .ind MAS TI K('ARl) accepted 

COMING SOON: more graphics 
utilities and a tablet version! 
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Lo-Res Graphics 
and Pascal 



d 



The Apple language card 
precludes the use of the normal 
low resolution plotting routines. 
This article offers a library of 
assembly language procedures 
that allows you to plot low 
resolution graphics using 
Pascal. 



C. Donald Heth 
Department of Psychology 
The Unversity of Alberta 
Edmonton, Alberta, Canada 
TG6 2E9 



One of the principal attractions of the 
Apple II is its capacity for expansion. 
Not only can the Apple owner add a 
plethora of peripheral devices, but he 
can also change the very "personality" 
of his machine. Perhaps the most 
significant development in this latter 
connection was the Apple II Language 
Card. With it, the Apple owner can turn 
a hobbyist machine into a sophisticated 
computer system using one of the 
foremost languages of the computer 
industry, Pascal. As discussed by John 
Mulligan (MICRO, 29:59), Pascal pro- 
vides the programmer with a very 
powerful set of programming tools. The 
Apple II owner interested in serious 
applications of his machine will find 
Pascal well worth considering. 

However, he may find one feature 
disappointing. Because the Language 
Card functionally replaces the Apple 
monitor, it gates out many of Apple's 
intrinsic features. The feature that the 
new Pascal owner is likely to miss is the 
Apple's low resolution graphics 
capability. While Pascal has an excellent 
graphics handler, it is restricted to the 
standard high resolution color set. There 
are no defined procedures to produce the 
rainbow of colors for which the un- 
modified Apple is famous. So, while the 
Pascal user will undoubtedly conclude 
that Pascal's power is worth the 
sacrifice, its lack of low resolution 



graphics is likely to keep him forever 
nostalgic, or turn him into a closet 
BASIC user. 

To help advance the Pascal move- 
ment, I'd like to report on one way I 
have found to generate low resolution 
graphics from Apple Pascal. It permits 
plotting on either page of the low resolu- 
tion screen. 

As readers of the Apple Reference 
Manual know, low resolution graphics 
in the BASIC Apple are generated from 
RAM data in the range $400 to $BFF, 
with the first $400 hex locations 
designated as ' 'page one' ' and the second 
as "page two." This is also the area 
which contains text data when the 
Apple is displaying text. Whether text or 



data are displayed is determined by 
whether location $C054 or $C055 was 
last referred to. 

This same memory range is reserved 
in Pascal to display text. The old page 
one contains the first 40 columns of 
text; the old page two contains the 
second. Hitting "Ctrl-A" from the 
keyboard simply switches between the 
two pages. But, despite the use of this 
range for text, the soft switches control- 
ling the display of text or graphics are 
still functional. To verify this, perform 
the following experiment. 

Type in the program of listing 1. 
This is a series of assembly language 
instructions that refer to the soft 
switches controlling the display of text 



Listing 1 



T hE FOLlOHING PROCEDURES " THR0H " THh 
APPROPRIATE SOFT SWITCHES TO EFFECT THEIR 
RESPECTIUE FUNCTIONS. "C0L0R1" AND "C0L0R2" 
DISPLAY LOW RESOLUTION GRAPHICS ON THE FULL 
SCREEN OF THE PRIMARY AND SECONDARY PAGE, 
RESPECTIVELY. "TEXT1" DISPLAYS ALL TEXT ON 
THE PRIMARY PAGE. OTHER COMBINATIONS OF 
SNITCHES COULD BE USED TO DISPLAY MIXED TEXT 
AND GRAPHICS < SEE PAGE 13 OF THE APPLE II 
REFERENCE MANUAL ). 



.PR0C COLOR 1 
LDA 0C050 
LDA 0C852 
LDA 0C054 
LDA 0C056 
RTS 

.PR0C COLORS 
LDA 0C050 
LDA 0C052 
LDA 0CO55 
LDA 0C056 
RTS 

.PftOC TEXT1 
LDA 0C051 
LDA 0C054 

RTS 



. END 
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or graphics. The instructions under the 
heading .PROC COLOR1 turn on the 
graphics of page one; those under .PROC 
COLOR2 and .PROC TEXT1 turn on 
page two graphics and page one text, 
respectively. For those readers who have 
not yet used the assembly langauge 
capabilities of Pascal, these routines 
will ultimately be integrated into the 
main Pascal program and called as 
procedures. 

After you have typed listing 1, save it 
in a disk file (e.g., under the name 
ASMDEMO). Then type in listing 2, 
which is the Pascal program to use these 
routines. Notice that there are procedure 
declarations corresponding to each 
assembly language routine. These pro- 
cedures are then called in the main body 
of the program. Listing 2 should 
likewise be saved in a disk file. 

Now you must use the system 
assembler, compiler, and linker to 
integrate the two programs. Follow the 
instructions given for the example in 
section 1.9.1.1 of the Pascal Reference 
Manual. Run the linked program. The 
system responds with its usual "RUN- 
NING..." message. Hit carriage return, 
and you should see an immediate switch 
to the bar pattern of a non-cleared low 
resolution screen. The irregular colors 
in the upper left, of course, are the color 
translations of the message characters. 
The next carriage return switches to 
page two,- the pattern in the upper left 
disappears. Finally, the next carriage 
return will return you to text mode and 
end the program. 



H 



Listing 3 

PROGRAM C0L0R0EM0; 

OAR 

RESPONSE : CHAR; 
X : 6.. 39; 
V : Q..47; 
COLOR : 0..15; 

PROCEDURE COLOR 1; EXTERNAL ; 

PROCEDURE C0L0R2; EXTERNAL; 

PROCEDURE TEXT1; EXTERNAL; 

PROCEDURE PLOTS'! X,V, COLOR: INTEGER); EXTERNAL; 

BEGIN 

C0L0R2; 

FOR A := 6 TO 39 DO 
FOR V := @ TO 47 DO 
PLOT2<X,Y,0); 

TEXT1; 

REPEAT 

6QTOXY<0,3); 

HRITELN';'' '); 

GOTOXVt W,l ); 

HRITELN*; ''ENTER X, V, AND COLOR'); 

HRITELN^ 'HIT <CR> TO DISPLAV PLOT; <CR> TO RETURN); 

READLNO!,Y, COLOR); 

C0L0R2; 

PL0T2(X,V, COLOR); 

READLN< KEYBOARD, RESPONSE ); 

TEXT1; 

HRITELN< 'TYPE "0" TO QUIT; SPACE TO CONTINUE'); 

HRITELN< 'THEN HIT <CR>' ); 

RE ADLN< RESPONSE); 
UNTIL RESPONSE = 'Q'; 

END. 





Listing 2 


PROGRAM 8 


HITCHGEMO; 


URR 

RESPOHS 


E : CHAR; 


PROCEDURE 


COLOR 1; EXTERNAL ; 


PROCEDURE 


C0L0R2; EXTERNAL; 


PROCEDURE 


TEXT1; EXTERNAL; 


BEGIN 




REHDLNC RESPONSE ■>; 

COLOR i; 

READLN< RESPONSE); 

C0L0R2; 

REA0LN< RESPONSE); 

TEXTIj 


END. 





So, Apple Pascal can generate low 
resolution colors — if we can put the 
right data into the right locations of the 
low resolution pages. Normally, this 
computation is performed by the Apple 
monitor, but again, it has been disabled 
by the Language Card. 



The solution I suggest is an assembly 
language routine like the ones used to 
switch the colors on and off. Listing 3 
contains such a procedure, labeled as 
PLOT2. It is set up to accept the X and Y 
coordinates, and the color to be plotted, 
as parameters. This gives the user closer 



Listing 4 



.MACRO POP 

PLA 

ST A SSI 

PLA 

ST A V.l+1 

. ENDM 

.PROC PL0T2,3 



SAMPLE MACRO TO POP 18 BIT 
WORD FROM TOP OF STACK. 



PL0T2 

THIS PROCEDURE TAKES AS ITS PARAMETERS AN X 
COORDINATE <0..39), A V COORDINATE <0..47>, 
AND A COLUR C0..15) AND PLOTS A LOW RESOLU- 
TION BLOCK ON THE SECONDARY PAGE < SEE PAGES 
17-13 OF THE APPLE ][ REFERENCE MANUAL FOR 
COLOR AND COORDINATE ASSIGNMENTS ). 



(Continued) 
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Listing 4. (Continued) 


; THE ROUTINE CAN BE USED TO PLOT ON THE PRI- ; 
; MARY PAGE BV ALTER I HG THE INSTRUCTION ; 
,- LABELED "PAGENUMB" TO READ "ORA #04". ; 


; LOCATIONS 0005 AND 
; TEMPORARY STORAGE. 


0006 ARE USED FOR ; 

; 

S 


i 

RETURN 


.EQU 
POP RETURN 




-, USE LOCATION 0000 TO 
; STORE RETURN ADDRESS. 




PLfi 

STfi CLR 
PLA 




; PUT LOWER-ORDER BVTE OF 

; COLOR ARGUMENT IN CLR, 
-, AND DISCARD HIGH BVTE. 




LOA #0F8 

STfi MfiSK 




,- SET UP BINARY MASK 
i fiT MASK. 




PLH 
PHfi 
PHfi 

AND #30 
LSR A 
STfi 5 
ASL fi 
ASL fi 
Ofifi 5 
STfi 5 




i GET LONER-ORDER BVTE 

; OF V COORDINATE AND 

i DUPLICATE ON STACK. 

; STRIP BITS 0-3 AND 6-7. 

; TRANSFER BITS 4-5 TO 

; POSITIONS 3-4. 

, THEN DUPLICATE PATTERN 

; IN POSITIONS 5-6* 

; AND STORE IN 0005. 

ccr i fui cutc rip y rnriB 



PLfi 


i GET LOU BYTE OF Y COOR. 


AND #OE 


i STRIP BITS AND 4-7. 


RGR A 


; TRANSFER RESULT TO 


ROR fl 


; CARRY AND BITS 0-1. 


PfiGENUMB ORfi #08 


; COMBINE WITH PAGE LIMIT 


STfi 6 


; AND STORE IN 0006. 


RGR fi 


-, TRANSFER ORIGINAL BIT 1 


AND #80 


; TO POSITION 7 AND 


ORA 5 


; COMBINE WITH CONTENTS 


STfi 5 


; OF 0005. 


PLfi 


; GET LOU BYTE OF V COOR. 


flNU #01 




BEQ SKIP 


; IF ODD, 


ASL CLR 


; THEN SHIFT COLOR CODE 


fiSL CLR 


; TO POSITIONS 4-7 


ASL CLR 


: OF CLR, 


ASL CLR 




LOfi #0F 


-, AND CHANGE MfiSK. 


STfi MASK 




SKIP PLfl 


i DISCARD HIGH BVTE OF V. 


TVA 


i SAME V REGISTER. 


ST A YSTOR 




PLA 


; GET LOW BVTE OF X COOR, 


TflY 


; TRANSFER TO V REGISTER, 


PLfl 


; AND DISCARD HIGH BVTE. 


LDfi es,v 


; GET BYTE ON SCREEN. 


AND MASK 


i ERASE OLD COLOR. 


ORA CLR 


-, COMBINE NEW COLOR 


ST A i25, V 


; AND PLOT. 


LDA YSTOR 


; RETURN Y REGISTER. 


TAY 




LDA RETURN+1 


-, GET RETURN ADDRESS 


PHA 




LOA RETURN 




PHfi 




RTS 


; AND RETURN. 



CLR 

MASK 

YSTOR 



. BVTE 
. BYTE 
.BYTE 

.END 



control over the color than that afforded 
by the routine which comes with Apple- 
soft. I won't go into the details of listing 
3, except to note that, through bit 
manipulations, it transforms the 
parameters passed to it by the host pro- 
gram into the appropriate addresses in 
the page two memory range. If you'd 
like to plot on page one, change the line 
labeled PAGENUMB to ORA #04. You 
could even rewrite listing 3 with the 
modification and put it under the 
heading .PROC PLOT1. Then you could 
plot a point on either page by executing 
PLOT2 or PLOT2. 

Save and assemble listing 3 under 
some name. It can now be linked, along 
with listing 1, into a Pascal program 
which uses the procedure PLOT2 
(X,Y,COLOR). I've written listing 4 as 
an example. To use it, type, save, and 
compile it, and then link it (as the "host 
file") to the assembled versions of list- 
ings 1 and 3 (as the "lib files"). When 
you run it, it will begin by visibly clear- 
ing the screen. Then it will switch back 
to text to ask for the coordinates and 
color of the point you wish to plot. Type 
the X coordinate, Y coordinate, and 
color number, each separated by spaces. 
Hit carriage return, and the program will 
plot the low resolution point on the 
screen. The next carriage return will 
bring you back to text to plot another 
point. The Pascal program isn't very 
elegant, but it should help to demon- 
strate how these routines can be used. 

Hitting "Ctrl-A" during the program 
seems to interfere with the plot; I 
haven't located the reason yet. Also, the 
plotting routine could be written in such 
a way that the color of the point is deter- 
mined by a global variable in the Pascal 
host program, rather than by a procedure 
parameter. This would be similar to the 
way plotting routines are handled in 
Applesoft. This could be done by the 
assembler directive .PUBLIC, which 
allows communication between the 
assembler and Pascal programs through 
common variables. Finally, I suggest 
that listing 3 be adapted as BASIC 
routine. Using it, one could plot on page 
two directly, without having to move 
chunks of data from page one. Just how 
it could be adapted is left as an exercise 
for the reader. 

I've found Pascal to be an extremely 
attractive language. Before I developed 
these routines, however, I occasionally 
missed the low resolution graphics of 
Applesoft. Now, it's nice to know you 
can have your Apple and eat it too. 

Donald Heth is an Assistant Professor at 
the University of Alberta. He is interested 
in microcomputers as tools for 
psychological research. 
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the BEST <J AND l> the BEST 



keyboard buffer 




& SHIFT KEY UPPER/LOWER CASE CONTROL 

$119.95 

+ More buffet than others. 

+ Clear buffer control. 

+ SHIFT key entry of upper/lower case. 

+ Easy CTL key access to special chars 

" I _ ' ) ) _ I \ □". 
+ Allows BASIC programs with standard 

INPUT to support Lower Case without 

software modification. 
+ A lower case adapter is required 

to display lower case. 



Separately, they have more features 
and out perform all the rest. But 
together as a team they perform even 
better. Look for the Graphics +Plus 
soon. It's a RAM based character 
generator to compliment the Lcwer Case 
+Plus. It will allow you to define the 
character set to your needs. You could 
load German, French, Scientific, 
Engineering or any other special 
characters into the Graphics +Plus and 
use it as if the Apple II was designed 
specially for that application. And 
that's not all. If you define the 
characters as graphics, you can do 
extremely fast HI-RES type graphics on 
the text screen without all those 
cumbersome and slow HI-RES routines 
and 8K screen. For all the details on 
this triad of products, send for our 
free booklet "Lower case adapters and 
keyboard buffers from the inside out". 
This booklet gives all the details 
about lower case adapters and keyboard 
buffers in general. It also has a 
section on the Graphics +Plus (RAM 
based character generator) . 



lower case adapter 

Mazer 




lower, cm 




GRAPHICS & LOWER CASE CHARACTER GENERATOR 
FOR THE APPLE II COMPUTER 



h 



$69.95 



1CRO GY 5T6M5 
1791-G Capital 
Corona, CA 91720, 
(714)735-1041 




DOSOURCE 3.3 

for the Apple II 

A source listing of DOS 3.3 

Disassembled & commented by Randy Hyde 

We took our DISASM/65 disassembler program, disassembled 
Apple's DOS 3.3, and added meaningful lables and comments to 
create DOSOURCE 3.3, a perfect companion to "Beneath Apple 
DOS" by Don Worth and Pieter Lechner*. DOSOURCE clearly lists 
each routine used by Apple DOS. 



+ Normal & Inverse Lower Case. 
+ 2 complete character sets on board. 
+ Graphics character font built in. 
t Expansion socket allows access to 

external character sets. 
+ 2716 EPROH compatible char generator. 
+ More supporting software, {on diskette) 
+ Keyboard +Plus & Graphics +Plus designed 

around the Lower Case +Plus. 



DISASM/65 

by Randy Hyde 

DISASM/65 is a LISA compatible 6502 disassembler for 
the Apple II. DISASM/65 takes unadorned machine code and 
converts it to an understandable assembly language text 
file. DISASM/65 allows users to disassemble 6502 
instruction codes, HEX data, string data, address data/ 
stack data, and more! DISASM/65 is by far the most 
powerful 6502 disassembler available for the Apple II. 
In tact, we used it to disassemble DOS 3.3 tor our 
DOSOURCE package. Over 500 happy users bought DISASM/65 
for $24.95 without the source listing (The source 
listing was available for $35.00 extra). Now, for a 
limited time, you get both the DISASM/65 program and the 
source listing foe $29.95 (DISASM/65 sources are in a 
LISA 2.x compatible format). Complete documentation 
included. 



DOSOURCE is a LISA 2.5 compatible source listing 
of DOS 3.3. LISA 2.5 owners can load and reassemble 
DOS at other locations for special applications 
(such as in a RAM card). DOSOURCE is also a text 
file that can be loaded into your favorite assembler 
and converted for use with it. DOSOURCE is also an 
assembled listing that you can dump to a printer for 
reference purposes. 

With DOSOURCE you can: 

-> Reassemble DOS 3.3 at different addresses. 

-> Utilize several useful routines found within DOS, 
such as decimal input and output. Many routines 
within DOS are as useful as routines found within 
the Apple moni tor .. .only you didn't know about 
them until now! ! 

-> Remove portions of DOS, that you may not need, 
freeing memory for program use. Most programs do 
not need the 'RENAME", "INIT", "BSAVE", "BRUN", 
"BLOAD", "CATALOG", etc. commands while they are 
running. As much as 4K can be removed from DOS 
without affecting your programs operation. Think 
about it the next time you get a MEM FULL error 
or need to declare an array that's just a little 
bit too big. 

-> Learn lot's of 6502 programming tricks - DOS 3.3 
is full of 'em. And you can learn them by 
studying the source listing. 

-> Make "Patches" to DOS 3.3 and understand exactly 
whats going on. No more "guessing game" resulting 
in unreliable software. 

SPECIAL INTRODUCTORY PRICE $39.95 
with 'Beneath Apple DOS" $55.00 

* Beneath Apple DOS is published by Quality 
Software. Suggested list $19.95 
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Lazer Microsystems' products are in computer 
stores all across the country. However, if you 
cannot locate one, you can order direct from us 
at 1719-G Capital, Corona, Calif. 91720. 

* California residents must add 6% sales tax. 

* Master Card & Visa (W/all vital info) welcome. 

* Allow 2 weeks additional for checks to clear. 

* Orders outside U.S.A. add $15.00 for shipping 
& handling. 



Lower Case *Plus, Keyboard tPlus, and Graphics 
♦ Plus are trademarks of Lazer Microsystems, 
Inc., Corona, Calif. 

Apple II and Applewriter are trademarks of Apple 
Computer, Inc., Cupertino, Calif. 
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Dollars & Sense Revisited 



This article describes print 
formatting in Applesoft BASIC 
using a MIDS statement. 



David T. Delli Quadri 

Box 1736 

Steamboat Springs, Colorado 80477 



One of the great joys of programming in 
BASIC is the way that one can solve the 
same problem in many different ways. 
Sometimes the thinking set one brings 
to the problem dictates the kind of solu- 
tion one seeks. One often finds the sim- 
ple solution to a problem while working 
on something quite different. I have 
been writing a program to act as a ski 
race secretary — shuffling, sorting, and 
printing the various lists of names and 
times generated during the course of a 
two-day ski race. One of the problems 
which I had to address was the output of 
times to the hundredth's decimal place, 
a problem similar to that discussed by 
Barton M. Bauers in his article 
"Business Dollars and Sense in Apple- 
soft" which appeared in the August 
1980 issue of MICRO (27:65). I was sur- 
prised to find how dissimilar our solu- 
tions were. 

The problem, you will remember, is 
two-fold. First, in Applesoft one does 
not have a PRINT USING command or a 
print formatting capacity. Zeros trailing 
a decimal point, and the decimal point 
itself, will be omitted where no value 
follows the decimal. Both of our solu- 
tions involve tailoring an alphanumeric 
variable to suit our needs. Second, the 
tendency of rounding errors to crop up 
in the seventh significant digit must be 
overcome in handling cents. It would 
never do to output .2999997, rounded to 
.29 when the answer was really .30. 

Bauers chose to handle this problem 
at input, converting and carrying his 
variables as integers. They must, of 
course, be reconverted at output. I chose 



to eliminate this step, and put the cor- 
rection in as I set up the alphanumeric- 
tailored variable. 

My solution is, where N is the 
number to manipulate, and N$ is the 
tailored alphanumeric to be printed: 

10 N$ = STR$(N + 1.005 - 
SGN(N) * INT(ABS(N))) 

20 N$ = STR$(SGN(N) * 
INT(ABS(N))) + 

MID$(N$,2,3) 

The Applesoft BASIC will return a 
5E-03 when + .005 is used, and this 
will be carried into the string. To pro- 
tect against this I use a 1.005 adder for 



correction, then ignore the first digit. It 
is also advisable to use a fix-rounding 
situation rather than depend on the 
DNT() function which will round down 
with negative values. 

Listing 1 is a simple program which 
illustrates the above two lines as used 
in a program. 

Dave Delli Quadri works as a contractor 
in the summer and a micro-programmer in 
the winter. Specializing in computer 
applications for ski competition, his 
programs have been used by the U.S. and 
Canadian Ski Associations for both 
jumping and alpine tournaments. 







Listing 1 

10 REN A CHECKBOOK BALANCING 

20 REM PROGRAM TO ILLUSTRATE 

30 REM A SOLUTION TO A PRINT 

40 REM FORMATTING PROBLEM... 

50 REM 

60 HOME 

70 INPUT "ENTER CURRENT BALANCE 

80 PRINT : PRINT "ENTER CHECK AS 

90 PRINT : PRINT "ENTER DEPOSIT AS 

100 PRINT : HTAB 20: INPUT "";CHECK 

105 BALANCE = BALANCE + CHECK 

110 BA$ = STR$ (BALANCE + 1.005 - 

CE) * INT ( ABS (BALANCE))) 

120 BA$ = STR$ ( SGN (BALANCE) * 

BALANCE))) + MID? (BA$,2,3) 

130 PRINT : PRINT "NEW BALANCE IS 

140 PRINT : INPUT "ANOTHER ENTRY? 

150 IF LEFT? (AN$,1) = "Y" THEN 80 

160 END 

]RUN 

ENTER CURRENT BALANCE 156.89 

ENTER CHECK AS -NN.NN 

ENTER DEPOSIT AS NN.NN 



";BALANCE 
-NN.NN" 
NN.NN" 



SGN (BALAN 

INT ( ABS ( 

$ ";BA$ 
";AN$ 



I 
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A STATISTICAL ANALYSIS 

AND FILE MAINTENANCE SYSTEM 

FOR THE APPLE II™ MICROCOMPUTER 

As a Subset Language of P-STAT™ 78... 
A-STAT™ 79 computes: 

FREQUENCIES 

BI-VARIATE TABLES - CHI SQUARES 

CORRELATION MATRICES 

MULTIPLE REGRESSION 

RESIDUALS 

APPLE PLOT INTERFACE 

APPLE FILE CABINET INTERFACE 

FILE SORT 

AGGREGATION 

REPORT WRITING 

COMPLETE TRANSFORMATION LANGUAGE 

READS VISICALC FILES 

A-STAT™ 79 

Uses Standard DOS Text File and EXEC's 
48K Version — All programs in Applesoft"" 

A-STAT™ 79 is available from: 

ROSEN QRANDON ASSOCIATES 

296 PETER QREEN ROAD 

TOLLAND, CONNECTICUT 06084 

(203) 875-3541 

A-STAT™ 79 on Disk with 95-page manual... $125.00 

Apple II Wl is a trademark ol Ihe Apple Computer Inc 
P-STAT tm 78 Is a trademark ol P-STAT Inc., Princeton, N.J 
A-STAT tm 79 | S copyrighted by Gary M. Grandon, Ph.D. 



NIKROM TECHNICAL PRODUCTS PRESENTS 

A DIAGNOSTIC PACKAGE FOR THE APPLE II 

AND APPLE II + COMPUTER. 

"THE BRAIN SURGEON" 

Apple Compuler Co has provided you with the besl equipment available to date The 
Diagnostic's Package was designed to check every major area ot your compuler. detect errors, 
and report any malfunctions The Brain Surgeon ■>. put your system through exhaustive, 
thorough procedures, testing and reporting all findings. 

The Tests Include: 



' MOTHERBOARD ROM TEST 

• APPLESOFT ROM CARD TEST 

• INTEGER ROM CARD TEST 

• MOTHERBOARD RAM TESTS 

■ DISK ORIVE SP€£0 CALIBRATION 

■ DISK ORIVE MAINTENANCE 

■ DC HAYES MICHOMODEM II TEST 

(HARDWARE & EPROM) 
- MONITOR & MODULATOR ROUTINES 

• MONITOR SKEWING TESTS 

• MONITOR TEST PATTERN 

• MONITOR TEXT PAGE TEST 



• MONITOR & TV YOKE AUGNMENT 

• LO RES COLOR TESTS 
- HI RES COLOR TESTS 

• RANDOM HI RES GENERATOR 

• SPEAKER FUNCTION TESTS 

• SQUARE WAVE MODULATION 

• PADDLE 4 SPEAKER TEST 

• PADDLE & BUTTON TEST 

• PADDLE STABILITY 

• INTERNAL MAINTENANCE 

• GENERAL MAINTENANCE 

• ON BOARD "HELP" 



The Brain Surgeon allows you to be confident ol your system This is as critical as Ihe 
operating system itself You must depend on your computer 100% of it's running time. Tha 
Brain Surgeon will monitor and help maintain absolute peak performance. 

Supplied on diskette w.ih complete 
dOCufenlaiioo and maintenance guide 

PRICE 140.08 

REQUIRES «AK. FP m ROM 

l Di»* Dnv*. DOS 3 2 or 3 3 

Nikrom Technical Products 

2S PROSPECT STREET • LEOMINSTER. MA 014S3 



Call TollFne Now! 

Masie> Charge & VISA users can 1 ■800*35-2246 
Kansas Res-dents can i-eoo 362-2421 




l» SCRUl NUMBER IS HflOW JOO00 QH D»I(n 

befooc itvet TMfMiftu»N Diskette p luS , I00 

US »00«O*(IGH 



Singing the file transfer blues? Then.., 

Get: B.I.T.S.! 

Use your Micromodem )( , A I Q Card, or 
Apple Comm Card 3 to: 

Send data files, E3ASIC programs, 
even machine code 

Co most computers over phone I ines. 
Copy anything you see 

into a 31K buffer then save it on disk 
and/or print it under your complete control. 

Many more features! 

See it at your favorite computer 
store today. 



Trademarks held by. 

Hayes Microcomputer Product* Inc 

2 - S S M 

3- Apple Compuler Inc 

B.I.T.S. is a trademark of 

MicroBoftware Systems 

7987 Jones Branch Dr. Suite4DO 

McLean. Virginia 22102 

(703) 385-294*1 






PUTS 

YOU 

ON TOP 



Organize your business with 
accounting software from SBCS: 

• General Ledger 

• Accounts Receivable 

• Accounts Payable 

The above programs can be used alone or inte- 
grated. They include extensive error checking 
and data entry prompting, numerous reports, 
departmentalizing, and budgeting. Detailed doc- 
umentation included. 

Get on top of things! Call or write today. 
SMALL BUSINESS COMPUTER SYSTEMS 

4140 Greenwood, Lincoln, NE 68504 (402) 467-1878 
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Paddle Hi-Res Graphics 



<. 



This program lets you draw a 
background scene on the Apple 
Hi-Res Graphics display using 
paddies. Data points are gathered 
according to the user-definable 
coordinate space. A series of 
DATA statements are created on 
a disk text file which can then 
be EXECed into any program. 

Kim G. Woodward 
6526 Delia Drive 
Alexandria, Virginia 22310 

Apple owners are continually searching 
for shape maker programs. With a shape 
maker, you can define a shape to meet 
the needs of your program and then 
XDRAW the shape on a landscape 
background, creating exciting games. 
There has been a myrid of programs to 
create shapes, but few to create the 
backgrounds. This program allows you 
to create that background. 

Paddle controls the X movement, 
and paddle 1 controls the Y movement. 
The X-, Y coordinates from the paddles, 
in the user's coordinate system, are 
displayed as well as the status of the 
"pen." As the movement of the paddles 
draws a picture on the screen, the 
coordinates and the pen status are main- 
tained in a vector array. At the conclu- 
sion of the background drawing the 
Apple will respond with a request for a 
starting line number and a text file 
name, in which data statements will be 
stored. In this data statement mode the 
Apple will create a series of DATA 
statements starting with the given line 
number and increment and place them 
onto the given text file. From the text 
file the statements may then be EXECd 
into any program to provide a perma- 
nent storage of the required background. 

This program makes use of the win- 
dowing transform which takes a series 
of points in a defined "window" and 
transforms them into a series of points 
on a defined "viewport." For example, 
if I have a series of points from a plot 



whose X axis goes from 10 to 20 and 
whose Y axis goes from -15 to +35, 
this is my defined "window." If I wish 
to plot them on the upper right portion 
of the Apple's screen, in a defined 
"viewport" whose X axis goes from 140 
to 279 and whose Y axis goes from 80 to 
0, then I would use the windowing 
transform: 

X' = 13.90 * X + 1 
Y' = -1.60 * Y + 56 

The transform is defined as follows: 



X' = 
Y' = 



X + 
Y + 



where: 



WV2 



WV1 



VV2 



X.Y 

WH1 WH2 
window 



I . 
I X',Y' 



I 
W1 I 



VH1 VH2 
viewport 



A = (VH2- VH1)/(WH2 -WH1) 
B = VH1 -A * WH1 
C = (VV2 - VV1) / (WV2 - WV1) 
D = VV1 - C * WV1 



The windowing transform is used to 
go from a user's coordinate system, the 
"window," to a device's (plotter, 
graphics screen, etc.) coordinate 
system, the "viewport." As you can 
see from the example, it is not 
necessary to fill the entire device; the 
example uses one-fourth of the screen. 
As a matter of fact, the windowing 
transform can be used to "zoom" in on 
a particular area, using clipping to get 
rid of unplottable lines. 



Listing 1 

10 REM ENTER X(l) ,Y(I) ,P(I ) ,1=1. .N 

20 REX. X(I) IS X COMPONENT 

30 REM Y(I) 13 Y COMPONENT 

4 HEM P(I)=1 PEN UP BEFORE MOVE 

50 REM P(I)=0 PEN DOWN BEFORE MOVE 

60 POKE 232,192: POKE 233,3 

7 FOR I = 96 TO 970: READ Z: POKE I,Z: NEXT I 

80 DATA 1,0,4,0,54,196,111,32,86,53,0 

90 DIM X(200) ,Y(200) ,P%(200) 

100 REM DRAW SCREEN FROM PADDLE 

110 TEXT : HOME : ROT= 0: SCALE= 1: HCOLOR= 3 

120 INPUT "XMIN VALUE (LEFT SIDE)? " ; XI 

130 INPUT "XMAX VALUE (RIGHT SIDE)? ";X2 

140 INPUT "YMIN VALUE (BOTTOM)? ";Yl 

150 INt-Ul "YMAX VALUE (TOP)? " ;Y2 

160 AZ = (X2 - XI) / 279:i3Z = XltCZ = (Y2 - Yl) / ( - 159 

) :DZ = Yl - 159 * CZ 
170 HGR :F = 
180 VTAB 22 : HTAB 1 
190 GOSU8 87 0: REM 
20 XDRAW 1 AT X,Y 
210 XL = X:YL = Y 
220 N = 0:G = 
2 30 REM REPEAT START 

240 GOSUB 870: REM GET PADDLE POSITION 
250 XDRAW 1 AT XL,YL: XDRAW 1 AT X,Y:XL = X:YL = Y 
260 IF PEEK ( - 16384) < = 127 THEN 840 

PRESSED? 



: PRINT "PEN IS OP" 
GET PADDLE POSITION 



REM WAS KEY 
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The Program 

The program begins by POKEing the 
"plus" cursor shape into locations 
starting at $3C0 which are above most 
page 3 utility routines and out of the 
way. The program then requests the 
user's min/max user screen values. If 
the values entered are 0, 279, 159 and 0, 
then the data recorded are the screen 
values themselves. However, if you are 
entering only one-fourth of an actual 
background then these numbers must 
change. The heart of the program is a 
REPEAT-UNTIL loop; the ESC key is 
the trigger to leave. Within the loop, as 
long as no keys on the keyboard are 
pressed, the loop continuously reads the 
current paddle cursor position, 
XDRAWS the cursor over the old cursor 
position, and XDRAWS the cursor at the 
new position. In this way the cursor 
appears to move over the entire screen 
without disrupting anything that has 
already been drawn. 

The subroutine at the bottom of the 
program listing reads the cursor position 
from the paddles. Note that the paddles 
normally read from to 255, clockwise. 
The subroutine reads each paddle and 
converts it through the windowing 
transform to appropriate screen co- 
ordinates. 

Note that paddle 1 values are re- 
versed so that with a clockwise rotation 
the cursor goes "up" instead of 
"down." The program locks out all but 
three keys. The space bar changes the 
"pen" status: if the "pen" is up, no 
lines are drawn,- if it is "down," lines 
are drawn and data is taken. If the "pen" 
is down and the return is pressed, then 
the current cursor position is taken as 
the data point. If the "pen" was "up," 
and is now down previous to pressing 
the return key, then data is stored with 
an indicator, P%(), of 1, indicating to 
move to this point, i.e. HPLOT X,Y. If 
the "pen" was "down," and is now 
"down" previous to pressing the return 
key, then data is stored with an in- 
dicator, P%(), of indicating to draw a 
line to this point, i.e. HPLOT TO X,Y. 
To start taking data, the space bar must 
be pressed until the "pen" is down and 
then the return key is pressed. When the 
ESC key is pressed, further recording of 
data ceases and the creation of DATA 
statements begins. 

Kim G. Woodward works as an electronic 
engineer for the U.S. Coast Guard in 
Washington, D.C. He has been in the 
computer field for ten years. Woodward's 
current interests include software 
engineering and utility type programs. 

JUCftO 



270 K = PEEK ( - 16384) - 128: POKE - 


16368,0 


280 IF K < > 32 THEN 340: REM KEY IS 


SPACE? 


290 CALL - 1059: REM BEEP SPEAKER 




300 IF F = THEN F = 1: VTAB 22: HTAB 


1: PRINT "PEN IS 


DOWN": GOTO 32 




310 IF F = 1 THEN F = 0: VTAB 22: HTAB 


1: PRINT "PEN IS 


OP ":G = 




320 REM CONT. 




330 GOTO 840 




340 REM CONT. 




350 IF K < > 27 THEN 640: REM KEY IS 


ESC? 


360 TEXT : HOME 




370 INPUT "NAME OF FILE? " ;A$ 




380 PRINT CHR$ (4);"OPEN ";A$ 




390 PRINT CHR$ (4), -"DELETE ";A$ 




400 PRINT CHR$ (4);"OPEN " ;A$ 




410 INPUT "STARTING LINE NUMBER? " ; 11 




4 20 INPUT "INCREMENT? ";I2 




430 PRINT CHRS (4), -"WRITE ";A$ 




440 PRINT 11;" REM " ;AS 




450 11 = 11 + 12 




460 PRINT 11;" DATA " ;N; " ," ;X1 ; " , " ;X2; " , " ;Y1; " , " ;Y2 : 1 1 = 


11 + 12 




470 B$ = " DATA " 




480 ZZ = 1 




4 90 FOR I = 1 TO N 




500 Nl = I - 1 




510 IF ZZ < > 4 OR I = 1 THEN 570 




520 ZZ = 1 




530 PRINT 11; LEFT$ (B$, LEN (B$) - 1) 




540 11 = 11 + 12 




5 50 B$ = " DATA " 




570 B$ = 8$ + STR$ (X(I)) + "," + STR5 (Y(I)) + "," + 


STR$ (P%(I)) + "," 




580 ZZ = ZZ + 1 




590 REM CONT. 




600 NEXT I 




610 PRINT 11; LEFT$ (B$, LEN (B$) - 1) 




620 PRINT CHR$ (4);"CLOSE " ;A$ 




63 GOTO 84 




64 REM CONT. 




650 IF K < > 13 THEN 830: REM KEY IS 


CR? 


660 CALL - 1059: REM BEEP SPEAKER 




670 N = N + 1:X(N) = AZ * X + BZ:Y(N) = 


CZ * Y + DZ 


680 IF F = THEN 810 




690 IF G < > THEN 750 




700 XDRAW 1 AT X,Y 




710 G = 1: HPLOT X,Y:XZ = X:YZ = Y 




720 P%(N) = 1 




730 XDRAW 1 AT X,Y 




74 GOTO 80 




750 XDRAW 1 AT X,Y 




760 HPLOT XZ f YZ TO X,Y:XZ = X:YZ = Y 




770 P%(N) = 




780 XDRAW 1 AT X,Y 




790 G = 1 




80 REM CONT. 




810 REM CONT. 




820 GOTO 840 




830 REM CONT. 




840 REM CONT. 




850 IF K < > 27 THEN 230 




860 END 




870 REM CURSER SUBROUTINE 




880 X = PDL (0) * (279 / 255) 




890 Y = 159 - ( PDL (1) * (159 / 255)) 




900XP=AZ*X+BZ:YP=CZ*Y+DZ 




910 VTAB 22: HTAB 20: PRINT INT (XP + 


. 5) ;" ": VTAB 


23: HTAB 20: PRINT INT (YP + .5) ; 


I n 


9 20 RETURN 
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# 



BENEATH APPLE DOS 

A Technical Manual 
By Don Worth and Preter Lechner 
Become an expert on the intricacies of Apple's DOS (Disk OperalmgSyslem). BENEATH 
APPLE DOS is the perfect companion to Apple's DOS 3.3 Manual. Containing eight 
chapters, three appendices, a glossary, an index, and over 160 pages, this manual will 
serve to completely till in the many gaps left by Apple's DOS 3.3 Manual. Written for 
Apple users with DOS 3.3. 3.2 or earlier versions, any Apple disk user would welcome 
having this carefully written manual at his fingertips. 
LEARN . . 

• How DOS 3.3 differs from other DOS versions. 

• How disks are protected 

• How to reconstruct a damaged diskette CATALOG. 

• How tracks are formatted. 

• How to use the disk directly, without DOS. 

• How to call DOS's file manager. 

• How every routine in DOS works. 

• How to customize DOS to your needs. 

• How to overcome DISK I/O ERRORS. 

• About the "secret" file types — S and R 

INCLUDES . . . 

• Large quantities of excellent diagrams and tables. 

• Source listings of useful disk utilities. 

• Glossary of over 150 technical terms. 

• Exhaustive description of DOS program logic 

• Handy reference card. 

• Useful patches to DOS 

• Many programming examples. 

Book - $19.95 



CROSS-REF by Jim Aalto 

Applesoft programmers will be delighted to have this cross reference utility program in 

their 'tool kit' of software aids. What can CROSS-REF do to speed and facilitate your 

Applesoft program development? Consider these functions: 
VARIABLE CROSS REFERENCE LINE CROSS REFERENCE 

FIND VARIABLE FIND LINE NUMBER 

REPLACE VARIABLE VARIABLE ONLY LISTING 

LINE ONLY LISTING 

Features that make CROSS-REF easy to use include: 

• Written in machine language, occupies less than 3K 

• Resides passively in memory while DOS or Applesoft is active. 

• Can be loaded with your Applesoft program already resident. 

• Very fast — a VARIABLE CROSS REFERENCE lor a 16K Applesoft program can start 
printing in 5 seconds. 

• Contains printer format controls and headers lor documentation. 

• Prints English language error messages. 

Cassette - $22.95 Diskette - $24.95 



LINKER by Don Worth. 

Turn your Apple II or Apple II Plus into a powerful and productive 
software development machine with this superb linking loader/editor 
package. LINKER does the following and much more: 

• Dynamically loads and relocates suitably prepared machine 
language programs anywhere in RAM. 

• Combines a main program with subroutines. You can assemble a 
subroutine once and then use it with as many main programs as you 
wish. 

• Produces a map of all loaded routines, giving their location and the 
total length of the resulting module. 

• Contains a library of subroutines including binary multiplication and 
division, print text strings, delay, tone generator, and random 
number generator 

Linker works with virtually any assembler for the Apple II. Requires 32K 
of RAM and one disk drive. 

Diskette - $49.95 
Manual Only - $19.95 




FASTGAMMON" By Bob Christiansen 
Sound, hi res. color, and musical cartoons have 
helped make this the most popular backgammon 
playing game for the Apple II. But don't let these 
entertaining teatures fool you — FASTGAMMON 
plays serious backgammon. Runs on any Apple II 
with at least 24K of RAM. 
Cassette - $19.95 Diskette - $24.95 



METEOROIDS IN SPACE" 

By Bruce Wallace 

We have taken our popular space 
game, formerly called Asteroids in 
Space, and made some important im- 
provements. To accent these improve- 
ments we have given it a new name — 
METEOROIDS IN SPACE Your space 
ship travels through a shower of 
deadly meteoroids. If your ship is hit, it 
will be destroyed, so you use your laser 
gun to blast the meteoroids. Big 
meteoroids shatter into smaller 
meteoroids when hit, and the smaller 
ones are usually faster and just as 
deadly. From time to time you will en- 
counter an alien space ship whose 
mission is to destroy you, so you'd 
better destroy it first. All the action is 
displayed in fast, smooth, high resolu- 
tion graphics, accompanied by sound effects. You now can control your ship usingone 
of two options — the Apple game paddles or the keyboard. One ol the game paddle 
buttons controls the laser fire. In METEOROIDS IN SPACE, the spaceship's velocity 
gradually decreases unless more thrust is applied, adding an element of control. Also 
new to this version is a hyperspace feature — translate instantly to another spot in the 
galaxy. The game is over when five of your ships have been destroyed. An additional 
ship is added for every 1 0,000 points you score Runs on any Apple II with at least 32K 
of RAM and one disk drive. 

Diskette - $19.95 




ASTROAPPLE'" by Bob Male. 
Your Apple computer becomes your astrologer, 
generating horoscopes and forecasts based on the 
computed positions of the heavenly bodies. This 
program offers a delightful and stimulating way to 
entertain friends. ASTROAPPLE produces natal 
horoscopes (birth charts) for each person based 
on his or her birth data. Any two people may be 
compared for physical, emotional, and intellectual 
compatibility. The program is written in Applesoft 
BASIC with machine language subroutines. It 
requires either RAM or ROM Applesoft and at least 
32K of memory. 

Cassette - $14.95 Diskette - $19.95 
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FRACAS" by Stuart Smith. 

A fantastic adventure game like no other! Up to eight 
players can participate in FRACAS at the same time. 
Journey in the land of FAROPH, searching for hidden 
treasure while warding off all sorts of unfriendly and 
dangerous creatures You and your friends can compete 
with each other or you can join forces and gang up on the 
»2h! monsters. Your location is presented graphically and sound 
tut* effects enliven the battles. Save your adventure on diskette 

'■'-srSSjr or cassette and continue it at some other time. Both integer 
, / ,\ BASIC and Applesoft versions included. Requires at least 
- r "■ 32K of RAM. 

Cassette - $19.95 Diskette - $24.95 



BATTLESHIP COMMANDER" by Erik Kilk and Matthew Jew. 



A game of strategy. You and the computer each start out by positioning five ships of 
different sizes on a ten by ten grid. Then the shooting starts. Place your volleys skillfully 
— a combination of logic and luck are required to beat the computer. Cartoons show 
the ships sinking and announce the winner. Sound effects and flashing lights also add 
to the enjoyment of the game. Both Applesoft and integer BASIC versions are included. 
Requires at least 32K of RAM. 

Cassette - $14.95 Diskette - $19.95 



Also by Don Worth . . . 

BENEATH APPLE MANOR - Adventure. Uses Integer BASIC. 

Cassette - $14.95 Diskette - $19.95 
BABBLE - Fun with words, sound, and graphics. 

Cassette - $19.95 Diskette - $24.95 



fSTH QUTiLrry software 

i^^^^fcj 6660 Reseda Blvd.. Suite 105. Reseda. CA 91335 
■■Lm4 (213)344-6599 

Now exclusive distributors lor products from The Software Factory. Newhall, California 
•Apple II and Apple II Plus aie trademarks ol Apple Computer. Inc. 



WHERE TO GET IT: Call us at (213) 344-6599 for the name of the Quality Software 
dealer nearest you. II necessary you may order directly from us. Mastercard and 
Visa cardholders may place orders by telephone. Or mail your check or ban!<card 
number to Quality Software, 6660 Reseda Blvd., Suite 105. Reseda, CA 91335. 
California residents add 6% sales tax. SHIPPING CHARGES: Within North America 
orders must include $1.50 for first class shipping and handling. Outside North 
America the charge for airmail shipping and handling is $5.00. Pay in U.S. 
currency. 
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True 3-D Images 
on Apple II 



This article describes a program 
which creates stereo-pair 
images for viewing without 
accessory devices. The pair of 
images can be fused into a 
three dimensional pattern by 
placing a piece of paper 
between the viewer's eyes and 
the viewing screen so that each 
eye sees only the appropriate 
image. With practice the paper 
is no longer needed. The object 
used for demonstration is a 
three dimensional Lissajous 
figure. 

Art Radcliffe 

1612 Ferndale 

Ann Arbor, Michigan 48104 

What we are talking about here is a gen- 
uine three-dimensional image such as 
seen through my grandparents' stereop- 
tican or through more recent systems, 
such as require colored eye filters or 
polarizing filters for viewing. The pres- 
ent technique involves not a single pro- 
jection of the object, a perspective view, 
but a pair of images which can be fused 
into one 3-D image without auxiliary 
contrivances. 

The Scientific American has pub- 
lished articles accompanied by stereo- 
pair images, which can be fused into a 
stereo scene with a little practice. This 
program was inspired by success with 
such viewing. Some eye training is re- 
quired, and some eye strain may be felt 
initially. What is required is that you 
stare off into the distance (eyeball axes 
essentially parallel) while focussing 
nearby. The muscles which direct your 
eyeball and the muscles which focus 
your lens are accustomed to working in 
a coordinated way for distant or for near- 
by objects; this muscular habit can 
readily be broken. It is not at all difficult 
for me now to glance at a pair of images 
on the screen from anywhere in the 
room, and see the 3-D pattern. 



Listing 1 






REM NOISY COASTER BY ART RADCLIFFE 






10 HOME : POKE 36,12: PRINT "NOISY COASTER" 




20 DIM A%(299): DIM B%(299): DIM H%(299): DIM S(299) 


30A = B = C = D = E = F = G = H=I 


= J = 




40K = L = M = N = = P = Q = T = U 


= V = 




50W = X = Y=Z = 0:R = - 16336:S = 


.5:LL = 




60 GOTO 630 






0~> KWl 






70 PRINT CHR$ (7): PRINT CHR$ (7): 


FOR A = TO 


1000: 


NEXT : PRINT CHR? (7) 






80 FOR P = TO 299 






90 A = PEEK (R) 






100 HCOLOR= 3: REM FRONT OF TRAIN 






110 B = A%(P):C = B%(P):D = H%(P) 






120 E = B + 1:F = C + 1:G = D + 1 






130 HPLOT B,F: HPLOT E,C: HPLOT E,F 






140 HPIiOT D,F: HPLOT G.C: HPLOT G,F 






150 Q = P - 10 






160 A = PEEK (R) 






170 IF Q < THEN Q = P + 289: REM 


<=Q<=360DEG 




180 HCOLOR= 0: REM END OF TRAIN 






190 B = A%(Q):C = B%(Q):D = H%(Q) 






200 E = B + 1:F = C + 1:G = D + 1 






210 HPLOT B,F: HPLOT E,C: HPLOT E,F 






220 HPLOT D,F: HPLOT G,C: HPLOT G,F 






230 A = PEEK (R) : REM REPLOT TRACK - 


> 




240 HCOLOR= 3: HPLOT B,C: HPLOT D,C 






250 A = PEEK (R) 






260 FOR Z = TO LL - B%(P) : NEXT : 


REM TRAIN SPEED 


270 A = PEEK (R) 






280 NEXT P 






290 PRINT CHR$ (7) 






300 RETURN 






3\J5 Krrl 






310 FOR P = TO 299: REM ESTABLISH 


PATTERN 




320 X = S(I) + L:Y = 2 * S(J) + T:Z = 


S(K) 




330 M = (C - Z) / (G - Z) 






340 A = INT (S + X + M * (E - X)):A%(P) = A: REM 


LEFT X 


350 B = INT (S + Y + M * (F - Y) ) - 


50:B%(P) = B: 


REM Y 


360 H = INT (S + X + M * (D - X)):H%(P) = H: REM 


RIGHT X 


370 HPLOT A,B: HPLOT A + 2,B: HPLOT 


H,B: HPLOT H 


+ 2,B 


380 IF LL < B THEN LL = B 






390 I = I + U: IF I > 299 THEN 1=0 






400 J = J + V: IF J > 299 THEN J = 






410 K = K + W: IF K > 299 THEN K = 






420 NEXT P 






430 RETURN 




(Continued) 
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The viewing images are produced By 
running rays from each defined point of 
the object to points which correspond to 
eye locations, with the object being 
behind the screen and the eyes in typical 
viewing positions. Points are plotted 
where these rays intercept the display 
plane. 

The object is defined near the origin 
of an X, Y.Z coordinate system, behind 
the screen plane. We can define object 
points using the notation: (X1.Y1.Z1), 
define screen points with: (X2.Y2.Z2j 
and define the eye locations using: 
(X3.Y3.Z3). Z2, the screen distance 
from the origin, is set at 200 in the pro- 
gram and Z3, the eye distance from the 
origin, is set at 300. Y3 is the same for 
each eye: 40; and the X3 values for the 
two eyes are 40 and 120. The direction 
from which the object is viewed can be 
altered by offsetting XI and Yl. 

Use of proportions leads us to the 
conclusion that (X2-X1)/(Z2-Z1) = 
(X3-X1//(Z3-Z1) and similarly, (Y2-Y1)/ 
(Z2-Z1)= (Y3-Y1)/(Z3-Z1). From these 
equations we can derive X2 = XI + 
M(X3-X1) and Y2+Y1 + M(Y3-Y1) 
where M = (Z2-Z1)/(Z3-Z1). 

Listing 1 is an embellishment, with 
sound effects, of the program as originally 
written, which appears in listing 2. 

Within the program there are 
variable substitutions: (X,Y,Z) = 
(X1.Y1.Z1), (A,B,C) = (X2,Y2,Z2] and 
(D,F,G),(E,F,G) = (X3,Y3,Z3). A Lissa- 
jous pattern was chosen for viewing 
because it has the convenient property 
of being restricted to a rectangular area, 
derived from the property of the sine 
function, being bounded by 1 and - 1 . In 
the program a raised sine is used by ad- 
ding 1 (line 64) to avoid negative values. 
Thus, the X-coordinates of the object 
vary according to one sine function, the 
Y-coordinates of the object vary in a 
coordinated manner according to a sec- 
ond sine function, and the Z-coordinate 
varies according to a third sine function. 

Random numbers are used to 
achieve an almost infinite variety of pat- 
terns. It is fun to watch the pattern take 
shape; the eye can go on a roller-coaster 
ride with the leading edge of the pattern 
as it develops on the screen. 

There is an inherent limitation to 
this method in that the display area is 
limited to the space between the 
primary pair of images. Use of prismatic 
glasses might increase the available ob- 
ject size. The program is written for 
viewing on a twelve inch diagonal 
screen. Users with other size displays 
may want to alter program parameters, 
first increasing or decreasing the X 
dimension for eye position by altering 



Listing 1 (Continued) 

435 REM 

440 O = 8 * ATN (1) / 300: REM 360DEG/300 
450 N = 40: REM OBJECT SCALE FACTOR 
460 FOR A = TO 299 
470 S(A) = N 
480 NEXT A 
200: 



E 
F 
L 

T 
G 



490 C 

500 D 

510 

520 

530 

540 

550 

560 U 

570 V 

580 W 

580 

590 

600 

610 K 

620 

625 

630 



* (1 + SIN (A * O)): REM SINE+1>0 



REM X COOR'S OF EYES 



120 

40: REM Y COOR'S OF EYES 

40 

150: REM X,Y,Z COOR'S OF OBJECT 

250 

300: 

INT 

INT 

INT 



REM # CYCLES IN X,Y,Z -> 
(1 + 5 * RND (1)) 

* RND (1)): IF V = U THEN 570 

* RND (1)): IF W = V OR W = U THEN 



(1 + 
(1 + 



I 
J 



INT 
INT 
INT 



(300 
(300 
(300 



RND (1)): REM START POINTS 
RND (1)) 
RND (1)) 
RETURN 

REM 

PRINT : PRINT : PRINT " CREATED BY ART RADCLIFFE 
ANN ARBOR ": PRINT 
640 PRINT : PRINT "PIACE 8 INCH BY 12 INCH CARDBOARD 



PRINT "BETWEEN SCREEN AND TIP OF NOSE SO EACH 

PRINT "EYE SEES ONLY IT'S IMAGE. SOME EYE 

PRINT "TRAINING IS NECESSARY. 

PRINT : PRINT : PRINT : PRINT : PRINT 

PRINT "PLEASE BE PATIENT WHILE I MEDITATE TO 

PRINT "GET MYSELF READY FOR THIS 

REM 



650 

660 

670 

680 

690 

700 

705 

710 GOSUB 440 REM INITIALIZE 

720 HOME : HGR : HCOLOR= 3 

730 LL = 0: REM LOWEST POINT 

740 GOSUB 310 REM LAY TRACK 

750 FOR A = TO 999: NEXT 

760 GOSUB 70 REM HOLD TIGHT! 

770 FOR A = TO 3000: NEXT 

780 GOSUB 490 REM REINITIALIZE 

790 GOTO 720 REM START OVER 

800 END 



Listing 2 

REM LISSAJOUS FIGURES IN TRUE 3D FOR APPLE-II. 
PLEASE SHARE YOUR COMMENTS WITH: 
ART RADCLIFFE 
1612 FERNDALE 
ANN ARBOR, MICHIGAN 48104 
(313)-995-2485 

SEE REMARKS AT END OF PROGRAM. 
: HCOLOR= 3: PRINT : PRINT : PRINT "WAIT" 
DIM S(199) 
A = B = C = D = E = F = G = H=I = S=.0 
=P=X=Y=Z=0 



REM 

REM 

REM 

REM 
REM 
REM 
HGR 





2 

4 

6 

8 

10 

12 

14 

16 

18 

20 J = K = L 

22 GOTO 56 

24 FOR P = TO 199 

26 X = S(I) 

28 Y = S(J) 

30 Z = S(K) 

32 M = (C - Z) / 

34 A = INT (S + 

36 B = INT (S + 

38 H = INT (S + 



= M = N = 



+ L 
+ T 



(G - Z) 
X + M * 
Y + M * 
X + M * 



(E -X)) 
(F - Y)) 
(D - X)) 



40 HPLOT A,B: HPLOT H,B 



(Continued) 
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Listing 2 (Continued) 



42 I = I + U: IF 


I 


> "199 THEN 1 = 


44 J = J + V: IF 


J 


> 199 THEN J = 


46 K = K + W: IF 


K 


> 199 THEN K = 


48 NEXT P 








50 FOR Z = 


TO 


5000: NEXT Z 


52 HGR 








54 GOTO 22 








56 O = .04 * ATN (1) 


58 N = 40 








60 FOR A = 


TO 


199 


62 B = A * 






64 S(A) = N 


* (1 


+ 


SIN (B)) 


66 NEXT A 








68 C = 200 








70 D = 120 








72 E = 40 








74 F = 40 








76 G = 300 








78 T = 250 








80 L = 150 








82 U = INT 


(1 + 


5 


* RND (1)) 


84 V = INT 


(1 + 


5 


* RND (1)): IF V = U THEN 84 


86 W = INT 


(1 + 


5 


* RND (1)): IF W = V OR W = U THEN 86 


88 I = INT 


(199 


* 


RND (1)) 


90 J = INT 


(199 


* 


RND (1)) 


92 K = INT 


(199 


* 


RND (1)) 


94 S = .5 








96 POKE 49234,0 






98 GOTO 24 








100 REM TO VIEW, 


SIT WITH FACE ABOUT A FOOT IN FMJNT OF T 



SCREEN AND STARE THROUGH THE SCREEN OFF INTO THE DISTANCE. 

102 REM THIS PROGRAM PLOTS A LEFT-EYE IMAGE AND A RIGHT-EYE 

IMAGE WHICH MUST BE FUSED INTO A SINGLE IMAGE. 

104 REM THIS TAKES PRACTICE, AS THE EYES ARE POINTED OFF INT 

O THE DISTANCE WHILE THEY ARE FOCUSSED ON THE SCREEN. 

106 REM WHEN THE IMAGES ARE FUSED YOU WILLSEE A THREE DIMENS 

ICNAL PATTERN IN THE CENTER WITH IRRELEVANT IMAGES ON EACH SIDE. 

108 REM IN TIME YOU WILL BE ABLE TO GLANCE AT THE SCREEN FRO 

M ANYHERE IN THE ROOM AND SEE A 3-D IMAGE. 

110 REM PAY ATTENTION TO YOUR EYES; QUIT IF THEY FEEL STRAIN 

ED. 

112 REM THE PROGRAM GENERATES A 3-D PATTERN BEHIND THE SCREE 

N AND RUNS A RAY FROM EACH POINT ON THE PATTERN TO EACH OF YOUR 

EYES IN FRONT OF THE SCREEN. 
114 REM AT THE POINT WHERE EACH RAY INTERCEPTS THE SCREEN A 
POINT IS PLOTTED. 
116 REM THIS IS A SIMPLE MATTER OF PROPORTIONS; YOU MAY READ 

UP ON IT IN AN OPTICS TEXT. 'YOU MIGHT ALSO READ ON DIRECTION C 
OSINES IN A SOLID ANALYTIC GEOMETRY TEXT 
118 REM OBJECT IS AT ORIGIN; OBJECT IS ORIGINALLY DEFINED WI 
TH (X1,Y1,Z1) AND IS REPRESENTED IN PROGRAM BY (X,Y,Z). 
120 SIMILARLY FOR THESCREENPLANE: (X2,Y2,Z2) AND (A,B,C) 
122 REM EYE LOCATIONS ORIGINALLY DEFINED BY (X3,Y3,Z3) AND B 
Y (D,F,G) AND (E,F,G)IN PROGRAM. 

124 REM THE OBJECT IS VIEWED FROM OFFSET POINT DEFINED BY TAND 
L. 

126 REM THE OBJECT IS CREATED BY DEFINING THE X, Y, AND Z C 
CORDINATES BY THREE SEPARATE SINE FUNCTIONS. 

128 REM THE POINTS ARE PLOTTED AT ANGULAR INCREMENTS SET BY 
'0', LINE 56. 

130 REM THE PROGRAM IS SPEEDED BY PRECALCULATIN A SINE TABL 
E WITH SCALE FACTOR 'N' BUILT IN: LINES 60-66. 
132 REM I, J, AND K START THE THREE SINE FUNCTIONS AT RANDOM 

PHASES IN THE SINE TABLE. 

134 REM U, V, AND W ARE SMALL INTEGERS WHICH DEFINE THE PERI 
OD (OR FREQUENCY) OF THE SINE FUNCTIONS. 



one or both of parameters D and E. It 
may also be useful to alter the scale fac- 
tor N. 

Interesting 3-D motion displays 
could be written in machine language; I 
can also imagine game possibilities, in- 
cluding visual 3-D Tic Tac Toe. Please 
note the remarks appended to the pro- 
gram (written in Applesoft), which com- 
plement the explanatory remarks above. 

I have experimented with more 
general systems using color filters for 
viewing, and may report on this at some 
future time. I hope that readers will 
experiment with this viewing system, 
perhaps altering parameters of the given 
program or substituting another object. 
Data points in three dimensions might 
be seen as a 3-D swarm of points in 
which local clusters or correlations 
could be detected. This is a new way of 
seeing things. 

Art Radcliffe has worked 25 years for 
IToVT, Radiation-lnc, and Burroughs, 
during which time he has acquired 32 
patents in computer and communciation 
circuits and systems. He has also worked 
in optics and holography, whence his 
interest in generating 3-D images. He has 
a 48K Apple with twin disks, Zenith color 
monitor and Silentype printer which he 
uses as a medium for creative and artistic 



expression. 



JUCRO 



Need o solution for 



Floppy Disk Lube 

Just THR€€ drops con: 

• Prolong useful disk life. 

• Increase head life. 

• flllouj initialization of "problem" 
disks. 

• Save 'unbootable' disks. 

• Reduce 'glitching' problems. 

• Cut nuisance problems. 



FLOPPY DISK LU8C- - <k oz. 
WITH APPLICATOR. 



$4.00 



Add $1 .50 shipping ond handling. Ohio 
residents odd 5'/?% sales tax, 



D osuJfiR^ c 

SEES*" 
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LOGICAL SOFTWARE, INC. 

announces: 

MAIL EXPRESS 

A NEW MAIL LIST UTILITY FOR THE APPLE II. 

— Up to 2,200 Names per File 

— Sort by Company Name, Customer Name, 
City, State Zip 

— Prints Return Addresses 

— Merge up to 16 Files 

— Easy User Definable Codes for City, State and 
Zip to Save Time and Disk Space 

This is an easy to use professional quality mail 
list able to handle large or small files. 

Introductory Price $49.95 
$2.00 Postage & Handling 



Logical Software, Inc. 
P.O. Box 354 
Farmington, Ml 48024 
(313) 477-2565 




OApple and Apple II are registered 
trademarks ol Apple Computer Inc. J 



LISP 



for the Apple II 



Pegasys Systems' new P-LISP interpreter is a full im- 
plementation of the well-known Artificial Intelli- 
gence language. Written in machine code, this 
powerful interpreter includes the following features: 

• Over 55 functions implemented 

• Extensive 45-page User Manual 

• Full function trace 

• Fast, efficient Garbage Collector 

• Supplied with function editor and pretty-printer 

• Runs in 32 or 48K Apple II or II + with disk 

• ELIZA and other sample programs included 

• Special language card version provided 

P-LISP is supplied on disk with User Manual for 
$99.95. The manual is available separately for 
$10.00. Please specify DOS 3.2 or 3.3. 

PEGASYS SYSTEMS, INC. 

4005 Chestnut Street 
Philadelphia, PA 19104 

Orders only: 800-523-0725 

PA residents and inquiries: (215) 387-1500 

Pennsylvania resident-, add h"K. sales lax 
Apple is .1 tradi-m.irk «>* Apple Cnmpuler ln« 

Good software is no longer a myth. 





DOUBLE DOS PLUS 

for Apple Computers 



OTHER UNIQUE PRODUCTS FROM MICRO-WARE DISTRIBUTING INC. 



201-839-3478 





DOUBLE DOS Plus— a piggyback board that plugs into the 
disk-controller card so that you can switch select between 
DOS 3.2 and DOS 3.3. Works with the language system elimi- 
nating the need in many cases to boot the BASICs disk. Also 
eliminates the chore of converting all of your 3.2 disks to 3.3 

NOTE: APPLE is a registered trademark ot APPLE Computer, Inc., Cupertino, CA. 

WHY IS DOUBLE DOS PLus better? 

• Nothing needs to be soldered, just plug in and go. 

• Since all four ROMS are used, all software will work, 
even early 3.1 DOS. 

• Because the ROMS fit on the back of the board, it has 
the thinnest configuration allowing full use of slot #7 

• One set of ROMS is powered up at a time, thus saving 

power. DOUBLE DOS Plus requires APPLE DOS ROMS 

• Full 90-day warranty from TYMAC. 

MICRO-WARE DISTRIBUTING INC. 

P.O. BOX 113 

POMPTON PLAINS, N J. 07444 



THE APPLE CARD— Two sided 100% plastic reference card lor the Apple computer 
Loaded with information ol interest to all Apple owners $3.98 

PARALLEL PRINTER CARD— PPC-100— A Universal Centronics type parallel printer 
board complete with cable and connector This unique board allows you to turn on and oil 
the htgh bii so that you can access additional lealures m many printers Use with EPSON, 
ANADEX, STARWRITER. NEC. SANDERS, OKL and other wilh slandard Centronics 
configuration ^ r r^fc $139.00 





"lllilittlilli"- i "MJT 




THE DOUBLE BOOTER ROM — Plugs into the empty D8 Socket on Ihe Apple mother 
board or the Integer ROM Card to provide a 13 sector boot withoul using the BASICs Disk 
DoubieBooter may also be useo" in the MOUNTAIN HARDWARE ROM PLUS board. This 
chip will not work in a plus machine unless tt contains an Integer board or a ROM Plus 
board $29 00 

DISK STIX— Contains 10 dozen diskette labels wilh either 3 3 or 3 2 designation Room 
for program names and type also $3.98 

************ SOFTWARE ************ 
SUPER SEA WAR— Hires battleship type simulation $13.95 

ULTIMATE XFER — A telephone software transfer program, uses DC Hayes Assoc 
micromodem $25.00 

ROAD RALLYE— Hires driving game with 5 different full screen tracks $15.00 

MISSILE CHALLENGER — Hires arcade type game where you delend your cities from 
lalling missiles 8 levels & writes name & high score to disk $19.95 

SUPER PIX— Hires screen dump toi the EPSON MX-80, inverse or normal, larger than lull 
page graphics in 2 orientations Needs Tymac PPC-100 Printer board or we will upgrade 
your EPSON board lor $25 $39.95 

GRAPH-FIT— A hires graphing program that produces bai charts, pie charts and line 
graphs Has auto scaling feature loo $25 00 



■STILL MORE APPLE GOODIES" 



APPLE KEYBOARD SYNTHESIZER— 49 note (C to C) AGO Keyboard with 3 sawtooth sq wave 
shapers. 3 audio oscitators. 3 low pass filters. 4-64 point shape controllers, 2 envelope 

generators. Complete system . $995 

KEYBOARD ONLY with Apple Interface $649 

GRAPHIC NOTEWRITER— Htfes note whte lor synthesizer system $99 

SUPER P1X OKI— Hires screen dump for OKI Microline 80, 82. 83 Printers. Same features as 

super pix. Needs Tymac PPC-t 00 Board $24.95 

NIBBLES AWAY— The best disk back up program to dale Allows you to make backups ot most 
every disk ever produced for the Apple. Over 1 user defined parameters including synchronized 

& unsynchronized copies as well as automatic hall tracking and raw date transfer $59 

Call 201 -8393478 for Dealer & Distrtbutoi Inquiries. 
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Apple Bits, Part I 



This article describes several 
aids to faster and more efficient 
low resolution graphics 
programming, including machine 
language routines. 



Richard C. Vile, Jr. 
3467 Yellowstone Dr. 
Ann Arbor, Michigan 48105 



This is the first in a series of articles 
dealing with the use of the Apple II low 
resolution graphics features. Some 
techniques will be described that use 
machine language to enhance the speed 
of graphics applications and reduce the 
amount of memory required in order to 
represent certain screen patterns. 

The basic techniques to be described 
will enable display of patterns, each of 
which is 8 x 8 in size or smaller and 
consists of a single color. Larger patterns 
must be constructed from smaller pieces 
which fit these requirements. A 
modification of the machine language 
routine will allow multiple colors to be 
obtained by overlaying. 

This article will describe the ma- 
chine language display program which 
converts a numerically encoded picture 
into the low resolution display pattern. 
The next article will describe an Integer 
BASIC program which allows the user to 
interactively develop a series of pat- 
terns, store their corresponding numer- 
ical representations in memory, and save 
it all on disk or tape. Finally, each arti- 
cle in the series will present one or more 
applications of the techniques to the 
construction of animations in Lo-Res. 



Bit-encoding a Picture 

Consider the following eight hex- 
adecimal numbers: 

38,38, 12,FE,90,28,44,83 

Believe it or not, they contain a picture! 
To see how, let's first rewrite the 
numbers in binary, using the following 
table to convert each hex digit into a 
4-bit binary "nibble:" 



Hex 



Binary 






0000 


1 


0001 


2 


0010 


3 


0011 


4 


0100 


5 


0101 


6 


0110 


7 


0111 


8 


1000 


9 


1001 


A 


1010 


B 


1011 


C 


1100 


D 


1101 


E 


1110 


F 


mi 



We arrive at the following numbers: 









1 


1 


1 

















1 


1 


1 




















1 








1 





1 


1 


1 


1 


1 


1 


1 





1 








1 




















1 





1 














1 











1 








1 

















1 


1 



Do you see the picture yet? Just in 
case you don't, let's transform the pat- 
tern of 0's and l's onto "graph paper" by 
superimposing a grid of squares on top of 
the above list, like so: 









1 


1 


1 











D 





1 


1 


1 




















1 








1 





1 


1 


1 


1 


1 


1 


1 





1 








1 














D 





1 





1 














1 











1 








L 

















1 


1 



Now, erase all the 0's and complete- 
ly blacken the squares containing the 
l's. That gives the grid shown next: 




Now, of course, you see the "pic- 
ture." Erasing the grid lines should 
make the correspondence with the Lo- 
Res display pretty obvious as well. The 
question now becomes: "How do we 
turn the above process into a program?" 

Shown in listing 1 is a machine 
language program which will carry out 
the process. It "assumes" that certain 
information has been set up for it. This 
information will be illustrated by listing 
2 (in Integer BASIC). We discuss this 
further following that program. 
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Listing 1 




*80ALL 












080A- 


A5 


30 




LDA 


$30 


080C- 


8D 


4 


08 


STA 


$0804 


080F- 


AC 


00 


08 


LDY 


$0800 


0812- 


8C 


03 


08 


STY 


$0803 


0815- 


CE 


03 


08 


DEC 


$0803 


0818- 


30 


31 




BMI 


$084B 


081A- 


AE 


01 


08 


LDX 


$0801 


081D- 


8E 


02 


08 


STX 


$0302 


0820- 


CA 






DEX 




0821- 


30 


F2 




BMI 


$0815 


0823- 


BD 


50 


08 


LDA 


$0850 rX 


0826- 


AC 


03 


08 


LDY 


$0803 


0829- 


31 


3C 




AND 


<$3C >rY 


082B- 


DO 


4 




BNE 


$0831 


082D- 


A9 


00 




LDA 


*$00 


082F- 


85 


30 




STA 


$30 


0831- 


A5 


24 




LDA 


$24 


0833- 


18 






CLC 




0834- 


6D 


03 


08 


ADC 


$030 3 


0837- 


A8 






TAY 




0838- 


A5 


25 




LDA 


$25 


083A- 


8£ 


02 


08 


STX 


$0302 


0830- 


60 


2 


08 


ADC 


$0802 


0840- 


20 


00 


F8 


JSR 


$F300 


0843- 


AD 


04 


08 


LDA 


$0804 


0846- 


85 


30 




STA 


$30 


0848- 


4C 


20 


08 


J MP 


$0820 


084B- 


60 






RTS 




084C- 


80 






??? 




0840- 


10 


10 




BPL 


$085F 


084F- 


F8 






SED 




0850- 


01 


02 




ORA 


( $02 j X ) 


0852- 


04 






??? 




0853- 


08 






PHP 




0854- 


10 


20 




BPL 


$0876 


0856- 


40 






RTI 




0857- 


80 






??? 




0858- 


A3 






TAY 




0859- 


BO 


08 




DCS 


$0863 


085B- 


28 






PLP 




* 












Machine Language Pattern Dlsplayer 



Listing 2 



10 GR : PRINT : PRINT I PRINT 

12 POKE 2048t7: POKE 2049,7 

15 R0U=7+ RND < 27 ) 

20 C0L=7+ RND (27) 

25 C0L0R= RND ( 15 )+l 

28 POKE 36,C0L: POKE 37,R0U 

30 FOR J=l TO RND ( 10 ) 

40 SPARK=1+ RND < 20 ) 

50 0FFSET=SPARK*7 

60 POKE 60,<3072+OFFSET ) MOD 256 

65 POKE 61,<3072+OFFSET)/256 

70 CALL 2058 

72 FOR DE=1 TO RND <25): NEXT DE 

75 NEXT J 

80 C0LOR=0: FOR J=0 TO 6: HLIN COLt 

COL+6 AT ROU+.J: NEXT J 
85 GOTO 15 



Integer BASIC Fireworks Animation 



<y 






The BASIC program does a series of 
POKEs which set up the machine 
language routine's information: 

12 POKE 2048,7: POKE 2049,7 

indicates the width and height of the 
patterns to be displayed. 

28 POKE 36.COL: POKE 37.ROW 

indicates the ROW and COLUMN of the 
Lo-Res screen at which the upper- left cor- 
ner of the pattern to be displayed will be. 

60 POKE 60,(3072 + OFFSET) 
MOD 256 

65 POKE 61, (3072 + OFFSET) 
/256 



stores the address in Apple II RAM at 
which the numerical codes for the pat- 
tern to be displayed begin. 



The machine language program is in- 
voked by the line: 

70 CALL 2058 

Running the Fireworks Animation 

The numerical data which the pro- 
gram uses must first be entered into 
memory. This data resides at locations 
COO to D27 (3072-3367) and has been 
listed on the next page. Once you have 
entered it (sorry about that) using the 
monitor, save it on tape (C00.D27W) or 
on disk: 



*3DOG 

>BSAVE SPARKS,A$C00,L$127 



to avoid keying it in again later. 
Likewise, enter the machine language 
program using the monitor or the mini- 
assembler and save it: 

'800.857W (Tape) 



or 



*3DOG 

>BSAVE APPLE-BITS, 
A$800,L$57 (Disk) 



(Continued) 
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In order to run the program, you 
should issue the command: 

>LOMEM:4096 

so that BASIC doesn't clobber the 
machine language program. 

Assuming you are using a disk-based 
system, the entire sequence of com- 
mands needed to run the animation 
would be: 

>BLOAD APPLE-BITS 
>BLOAD SPARKS 
>LOMEM:4096 
>RUN FIREWORKS 

(If you hate keying in long command se- 
quences, cook up an EXEC file with the 
commands in it.) 



Numerical Data for Fireworks Animation 



*C00.D27 



ocoo- 


FF 


FF 


FF 


15 


IF 


15 


F5 


00 


0C08- 


00 


00 


08 


00 


00 


00 


00 


00 


0C10- 


14 


00 


14 


00 


00 


00 


22 


00 


0C18- 





00 


22 


00 


41 


00 


00 


00 


0C20- 


00 


00 


41 


00 


00 


14 


OS 


14 


0C28- 


00 


00 


00 


nn 


14 


00 


14 


22 


0C30- 


00 


41 


22 


00 


00 


00 


22 


41 


0C38- 


00 


22 


14 


03 


14 


22 


00 


41 


0C4C 


22 


14 


00 


14 


22 


41 


41 


22 


0C48- 


14 


08 


14 


22 


41 


00 


00 


00 


0C50- 


08 


00 


00 


00 


00 


00 


08 


14 


0C58- 


08 


00 


00 


00 


08 


00 


22 


00 


0C60- 


08 


00 


08 


00 


00 


41 


00 


00 


0C68- 


08 


00 


00 


08 


1C 


08 


00 


00 


0C70- 


00 


08 


08 


36 


08 


OB 


00 


08 


0C78- 


08 


00 


63 


00 


08 


03 


00 


08 


OC80- 


08 


3E 


08 


08 


00 


08 


08 


08 


0C38- 


7 7 


08 


08 


08 


08 


08 


08 


7F 


0C90- 


08 


08 


08 


12 


IF 


10 


19 


15 


0C98- 


12 


11 


15 


0A 


06 


IF 


04 


17 


OCA0- 


15 


09 


IF 


15 


ID 


19 


05 


03 


0CA8- 


0A 


15 


0A 


17 


15 


IF 


00 


OA 


0CB0- 


00 


10 


1A 


00 


FF 


FF 


FF 


OA 


0CB8 - 


0A 


0A 


FF 


FF 


FF 


01 


15 


07 


occo- 


FF 


FF 


FF 


IF 


05 


IF 


IF 


15 


0CC8- 


0A 


IF 


11 


11 


IF 


11 


OE 


IF 


0CD0- 


15 


11 


IF 


05 


01 


IF 


11 


19 


0CD8- 


IF 


04 


IF 


11 


IF 


11 


18 


11 


OCEO - 


IF 


IF 


06 


19 


IF 


10 


10 


IF 


0CE8-- 


02 


IF 


IF 


0E 


IF 


IF 


11 


IF 


0CF0- 


IF 


05 


07 


IF 


11 


17 


IF 


05 


0CF3 


1A 


17 


15 


ID 


01 


IF 


01 


IF 


0D0 0- 


10 


IF 


OF 


10 


OF 


IF 


08 


IF 


0D08- 


IB 


04 


IB 


03 


1C 


03 


19 


15 


OB10- 


13 


FF 


FF 


FF 


FF 


FF 


FF 


00 


0D18- 


11 


IF 


FF 


FF 


FF 


FF 


FF 


FF 


0D20- 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 
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Just Published! 



What's Where in the Apple? 

An Atlas to the Apple Computer 



By William F. Luebbert 

Adjunct Professor of Engineering, Dartmouth College 

The MOST DETAILED description to date of Apple II Firmware 
and Hardware. 

• This Atlas and Gazetteer of PEEKs, POKEs, and CALLs lists 
in tabular form over 2000 memory locations. 

• Information is presented numerically in the Atlas, and alphabetically 
in the Gazetteer. 

• The names and locations of various Monitor, DOS, Integer BASIC, 

and Applesoft routines are listed, and information is provided on 
their use. 

• The easy-to-use format includes: 

The address in hexadecimal (useful for assembly 
programming): $ F c 5 8 

The address in signed decimal (useful for BASIC 
programming): (-936) 

The common name of the address or routine: C H M e ] 

Information on the use and type of routine: \SE\ 

A description of the routine: CLEAR SCROLL WINDOW 

TO BLANKS. SET CURSOR 
TO TOP LEFT CORNER 

• Related register information: {A- Y-REGS ALTERED) 

This reference tool offers information every serious Apple user 
needs. BASIC and assembly language users alike will find the 
book helpful in understanding the Apple. 

128 pages, 8Vs x 11 inches, cardstock cover, Wire-0 binding. $14.95* 

Ask your computer store for What's Where in the Apple or call 



800-227-1617 Ext. 564 

In California call 800-772-3545 Ext. 564 



_i> 



24-Hour Toll-free Service VISA and Mastercard Accepted 

34 Chelmsford Street, P.O. Box 6502, Chelmsford, MA 01824 

•Add $2.00 for surface shipping. Massachusetts residents add 5% sales tax. 



No. 40 -September 1981 



MICRO - The 6502/6809 Journal 



77 



INVEST 
INTELLIGENTLY 



Wl 



ith 



CREATIVE FINANCI 



by HowardSoft 




Get an Edge with CREATIVE FINANCING: 

This sophisticated but friendly software clears the fog 
created by today's creative loan packages, complex 
tax laws, runaway inflation, and cash-draining invest- 
ments. Whether you invest in bonds, stocks, income 
property, or trust deeds, or you just want to determine the 
true cost of your home mortgage or consumer loan, this 
package will aid you in intelligent decision-making. 
Realistically see the direct impact of inflation, time 
value of money, taxes, and cash flow timing, and play 
"what if" with the confidence that all important factors 
are properly handled. It is now possible in just a few 
minutes to objectively compare dissimilar loans and in- 
vestments with the realism formerly achieved only by 
the few financial wizards who could complete analyses 
of this type m a few hours. This package is INDISPENSIBLE 
FOR ANYONE WHO INVESTS WITH BORROWED MONEY. 



NOW AT YOUR DEALER FOR $150. 

Also ask about our Tax Preparer 
and Real Estate Analyzer software. 



Howard Software Services 

for the SERIOUS Personal Computer User 
6713 Vista del Mar | La Jolla. CA 92037 | (714)454-5079 






ractlcal Printouts for Intelligent Decisions: 

Monthly interest & principal payment schedules for 
complex loan packages - multiple trust deeds, 
wraparounds, amortization, interest only, variable 
mteresi rbte§,_ delayed payments, balloons, re- 
bates, mid-ye'bi- starts, add-on interest, simple 
interest. 

• Annual depreciation schedules for complex compo- 

nent depreciation - straight line, sum of year's 
digit, declining balance, automatic conversion to 
straight line, tax credits, recapture of excess 
depreciation. 

• Tabular projections of year-end on-sale profits - inter- 

nal rote of return, return on investment, return on 
prior year's equity, net present value, future value. 

• Tabular projections of cash flows - debt service, tax 

credits, leases, tax payments, expenses 

Analyses for Today's Complex Transactions: 

• Picks up where our Real Estate Analyzer left off. 

• Equivalent compound annual interest rate of loan 

package. 

• Yield to maturity for discounted bonds. 

• Present value of complex annuity schedules 

• Value of ownership vs. sale-leaseback. 

• Profit comparisons for dissimilar investments. 

• Risk evaluation through "what if" comparisons. 

Friendly Software for Efficient Operation: 

• Extensive documentation, complete with tutorials and 

sample analyses for the financial novice. 

• Error-tolerant and trouble-free tor use by the computer 

novice. 

• Flexible, professional, paginated report generation for 

impressive reports on all printers. 

• For all Apple Computers with 48K. Applesoft, and one 

16-sector disk drive. 
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Tracemark, 
An Apple II Debugging Aid 



TRACEMARK is a debugging or 
study-tool utility, an extension of 
the Apple II Monitor TRACE 
command. A count of each 
traced instruction is kept in a 
separate memory block, and the 
trace display rate is controlled 
by a game paddle. Certain 
complex, highly convoluted 
problems can be better 
understood using this tool. 



Raymond Weisling 
Jalan Citropuran No. 23 
Surakarta, Jawa Tengah, 
Indonesia 



During assembly language program 
development several debugging tech- 
niques are commonly employed, includ- 
ing single-step, trace and breakpoint. 
The Apple II Monitor provides the 
facilities for these techniques, although 
on a rudimentary level. Use of the 
TRACE function causes the program 
steps to scroll past at a dizzying speed, 
and the only way to stop the function is 
to hit the RESET key, which alters the 
stack pointer. Single-stepping allows 
more careful study of the program under 
test, but the manual requirements of 
typing the command 'S' for each step 
quickly become tedious. 

TRACEMARK was developed to fill 
this spectrum of capability, and it also 
introduces an even more powerful tool 
for software detective work: 'footprint- 
ing' (herein called a 'mark'). How often 
have you wanted to know where a faulty 
program has gone to reach some (usual- 
ly) faulty result? With single-stepping 
you can see the program flow, but mak- 
ing a record requires tedious hand- 
copying of the addresses. TRACEMARK 
not only makes a mark of the where- 
abouts of the processor for later evalua- 
tion, but keeps count of the number of 



times each instruction is executed (255 
maximum) . The only thing we sacrifice 
is knowing the order of instructions and 
why a certain branch occurred. 

Specifically, TRACEMARK calls the 
Monitor single-step routine (not found 
in the Auto-start ROM — but if you are 
doing assembly language work you prob- 
ably have the standard Monitor, or 
should). Each instruction is displayed as 
if in the free-running Trace mode, but 
the speed is controlled by the game pad- 
dle 0, from full speed (almost) to a com- 
plete stop. For the address of each in- 
struction executed, an offset address is 
generated, which points to a free 
memory area (mark buffer) where the 
count of each instruction resides. This 
count is incremented up to a maximum 
of 255 ($FF). Multiple byte instructions 
have each byte marked identically, so 
any wild branches into the operand por- 
tion of an instruction will show differing 
mark counts. 

The mark buffer resides "in 
parallel" with the program under test. 
That is, the offset of the address is only 



done to the high byte, greatly simplify- 
ing the mental work required when in- 
specting the mark buffer later. The pro- 
gram does not check to see if the mark 
buffer address is within the bounds of 
the actual mark buffer, so care must be 
exercised in selecting an offset value 
based on the expected range of the pro- 
gram under test. If extremely wide 
ranges are expected, it might be best to 
insert some boundary checking into 
TRACEMARK. 

Program Operation 

TRACEMARK, as shown in the 
assembly listing, resides at that popular 
spot, $300. It may be re-assembled to 
any convenient location. Similarly, page 
zero use may be adjusted to avoid con- 
flicts (TPCL, TPCH, TA, TB, & TC). 
From the Monitor, preset values for the 
trace beginning point (TPCL, TPCH), 
the mark buffer low boundary (TA, TB) 
and the mark buffer high boundary high 
byte (TC). Then call $300. First the 
mark buffer is filled with zeros by 
CLEAR. The Monitor program counter 
is then loaded with the trace start ad- 











Listing 1 






LINE* L0C 


CODE 


LINE 








0002 


0000 




! TRACEMARK 






0003 


0000 




; REV 


61 - 27 DEC 1980 






0001 


0000 




; r weisling; surakarta, Indonesia 




0005 


0000 






*=*300 






0006 


0300 




TPCL 


= *00 


J TRACEMARK PGOGRAM COUNTER — 




0007 


0300 




TPCH 


= *01 


i — ALSO TRACE START ADDRESS 




0008 


0300 




TA 


■ *02 


(TRACEMARK BUFFER START (LO) 




0009 


0300 




T.B 


= *03 


J <HI> 




0010 


0300 




TC 


= »01 


SBUFFER END (HI) 




0011 


0300 




LENGTH 


= *2F 






0012 


0300 




PCL 


- *3A 


! MONITOR PC 




0013 


0300 




PCH 


- *3B 






0011 


0300 




STEP 


■ *FA13 


J TRACE SINGLE STEP ROUTINE 




0015 


0300 




PREAD 


= tFElE 


J MONITOR - READ PADDLE VALUE 




0016 


0300 




i 








0017 


0300 




i TRACEMARK AND TRACE 


DISPLAY RATE UTILITY 




0018 


0300 




; 








0019 


0300 


201E03 


START 


JSR CLEAR 


! ENTER HERE FROM MONITOR 




0020 


0303 


A500 




LDA TPCL 


J UPDATE MONITOR PROGRAM COUNTER 




0021 


0305 


853A 




STA PCL 






0022 


0307 


A50 1 




LDA TPCH 






0023 


0309 


853B 




STA PCH 






0021 


0306 


2013FA 


AGAIN 


JSR STEP 


iDO ONE STEP IN MONITOR 




0025 


030E 


A501 




LDA TPCH 


;get address <pcl/h i step ahead) 




0026 


0310 


38 




SEC 






0027 


0311 


E9D0 




SF;C **D0 


!<-CHANGE THIS FOR OTHER OFFSETS 




0028 


0313 


8501 




STA TPCH 


; OFFSET FOR MARKING 




0029 


0315 


A12F 




LDY LENGTH 


JSIZE OF INSTRUCTION, 1-3 BYTES (0-2) 




0030 


0317 


B100 




LDA <TPCL),Y 


;GET FORMER MARK VALUE 

(Continued) 
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dress, and the single-step display loop 
begins. After the call to STEP, the mark 
buffer address is calculated from TPCL, 
TPCH values (the Monitor PC is already 
set for the next instruction). 

LENGTH is a value representing the 
size of the last instruction disassembled 
(less one), and acts as an index to LOOP 
for marking each byte of multi-byte in- 
structions. The previous mark count is 
first read and checked to prevent 
overflow, and then the incremented 
count is returned to the mark buffer. 
The paddle is read by a call to PREAD in 
the Monitor, and the returned value is 
used to set the repeat count of two 
nested timing loops. In addition, the 
value is tested to see if it is in the range 
of $FC to $FF, and if so, the paddle is 
read again (and again) until the value 
drops below $FC, effectively freezing 
the display. The paddle read-rate is 
slowed down by doing this value 
testing, after the inner loop, to 
eliminate errors caused from calling the 
PREAD routine too rapidly. (This 
caveat, mentioned in the Apple litera- 
ture, is due to circuit peculiarities of 
this crude a/d converter. 

Having the speed control is handy to 
use: slow down or stop the display for 
close inspection or let it run at full speed 
for those loops that work well. TRACE- 
MARK will continue as long as possible 
— the only means of exit are encounter- 
ing a BRK or hitting 'RESET.' Before 
calling the program again, be sure to 
reset the five bytes in page zero to the 
correct values for initializing the mark 
buffer and starting the trace. If more 
page zero space can be spent, these in- 
itial values could be made non- 
destructive (but the program will be 
slightly longer). 

Example of Use 

Let us see how TRACEMARK oper- 
ates by running it to trace the Apple In- 
teger BASIC program. This is a good ex- 
ample of a program which is highly con- 
voluted and which cannot be debugged 
by conventional breakpoints, since it 
resides in ROM. The listing shows line 
27 as being SBC #$D0, which is the off- 
set for this example. Thus BASIC, run- 
ning from $E000 to $FFFF (including 
display calls to within the Monitor) will 
be marked from $1000 to $2FFF (mark 
buffer). Now, preset the page zero 
registers as follows: 

00:00 E0 00 10 30 'return' 

This means to start the trace at $E000 
(cold start), clearing the mark buffer 
from $1000 to $2FFF. Next, call 
TRACEMARK and watch the trace 









Listing 


1 (Continued) 


0031 


0319 


AA 




TAX 






0032 


031A 


E8 




INX 


; 


BUMP BY ONE 


0033 


0316 


F006 




6E0 


DONE I 


PREVENT MARK OVERFLOW BEYOND *FF 


0031 


031D 


8A 




TXA 






0035 


031E 


9100 


LOOP 


STA 


(TPCD.Y 


[SAVE BUMPED MARK 


0036 


0320 


88 




DEY 






0037 


0321 


10FB 




6PL 


LOOP ! 


REPEAT IF 2-3 BYTE INSTRUCTION 


0038 


0323 


A53A 


DONE 


LDA 


PCL 


iREADY LOCAL PC FOR NEXT STEP 


0039 


0325 


8500 




STA 


TPCL 




0010 


0327 


A53B 




LDA 


PCH 




0011 


0329 


8501 




STA 


TPCH ; 


TRACEMARK PHASE DONE 


0012 


0326 


A200 


RD 


LDX 


*0 


J DISPLAY RATE PHASE BEGIN 


0013 


03ZD 


201EFB 




JSR 


PREAD ! 


READ PADDLE VALUE 


0011 


0330 


8101 




STY 


tc ; 


SAVE FOR DELAY RESTORE USE 


015 


0332 


C8 




INY 




ADJUST FOR DEC 6EF0RE TEST 


0016 


0333 


8502 




STA 


TA 




0017 


0335 


8503 




STA 


TB 




0018 


0337 


C602 


FLOP 


DEC 


TA 


SINNER DELAY LOOP 


0019 


0339 


D0FC 




BNE 


PLOP 




0050 


033B 


A501 




LDA 


TC 


GET PADDLE VALUE AGAIN 


0051 


033D 


8502 




STA 


TA 


RESTORE INNER LOOP 


0052 


033F 


A903 




LDA 


• 03 


MAKE LOW 2 BITS HI 


0053 


0311 


0501 




ORA 


TC 


OR WITH PADDLE VALUE (111111XX) 


0051 


0313 


A8 




TAY 




— IF RESULT *FF AND — 


0055 


0311 


C8 




INY 




— HERE MADE ZERO THEN — 


0056 


0315 


F0E1 




BED 


RD 


GO BACK TO READ PADDLE (DISPLAY FREEZE) 


LINE* LDC 


CODE 


LINE 








0057 


0317 


C603 




DEC 


TB 


OUTER DELAY LOOP 


0058 


0319 


DOEC 




BNE 


PLOP 


OELAY TIME ■ PADDLE VALUE SQUARED 


0059 


0311? 


1C0603 




JMP 


AGAIN 


DISPLAY RATE PHASE DONE - REPEAT 


0060 


031E 












0061 


031E 




! CLEAR MARK BUFFER FROM »T6TA TO «TC00 


0062 


031E 




! (THESE 


MUST BE PRELOADED FROM MONITOR 


0063 


031E 






EACH TIME PROGRAM 


IS CALLED - BEWARE) 


0061 


031E 












0065 


031E 


A100 


CLEAR I 


$00 


; CLEAR MARK BUFFER, TA/TB ■ FIRST 


0066 


0350 


98 




TYA 




ADDRESS OF BUFFER 


0067 


0351 


9102 


CLOP 


STA 


<TA),Y 


JZERO MEMORY BYTE 


0068 


0353 


E602 




INC 


TA 


BUMP ADDRESS LO 


0069 


0355 


D0FA 




BNE 


CLOP 




0070 


0357 


E603 




INC 


TB 


CARRY - BUMP ADDRESS HI 


0071 


0359 


A501 




LDA 


rc 


GET LAST ADDRESS LIMIT 


072 


0356 


C503 




CMP 


TB 


CHECK LIMIT AGAINST HI PART 


0073 


035D 


D0EF 




6NE 


CLEAR 


MORE TO CLEAR 


0071 


035F 


60 




RTS 




DONE 


0075 


0360 






.END 





display, using the paddle for rate con- 
trol. At some point hit 'reset' and then 
inspect the mark buffer. It will contain 
many zeros of course — those are places 
never reached by the program. But look 
at $2000-2022 (representing $F000- 
$F022) or around $2C62-2CA7 (the 
scroll routines in the Monitor) and you 
will see evidence that the program 
worked here for some time. 

While this program seems pretty 
dependent on the Apple II firmware and 
hardware, it shows merit for study by 
those with other systems, since the con- 
cept of making a parallel counter or 
mark buffer is processor-independent. 
All that is necessary is a processor 
simulator trace program which can 
single-step and yield the address of each 
step and optionally the size of each in- 
struction traced. 

Limitations 

Performing a TRACEMARK on a 
program with even a small amount of 
printing, via the Monitor display and 
scroll routines, will consume some con- 
siderable time while scrolling the text 
buffer. Worse still is the problem of a 
program which alters the two-byte out- 
put vector at $36-37 (CSWL), since one 
byte will be changed while the other re- 
mains unchanged, and everything will 



come to a grinding halt (when the trace 
program tries to output something to a 
half-baked jump vector). Additionally, 
some other Monitor routines may not be 
traceable, due to ambiguities relating to 
display status. The other limit is that of 
space, with no room for both the pro- 
gram under test and the mark buffer. 
Here some segmentation of the area to 
be marked, with mark buffer boundary 
checking, is called for. 

TRACEMARK should enhance the 
set of debugging tools commonly 
employed for development of programs 
at the assembler level, and is also useful 
where coupled with a disassembler, for 
study of undocumented programs in 
native machine code. I hope that use of 
TRACEMARK will cut time from an oft- 
times painful and tedious chore as it has 
done for me. 



Raymond Weisling has two degrees in 
music composition from California 
Institute of the Arts, where he also worked 
on software development in the Hybrid 
Computer Music Studio. He was a 
software and hardware designer for an 
industrial electronics manufacturer before 
resuming his artistic career. He uses the 
Apple II for design support in making 
acoustic and kinetic sculptures. 
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PRICE BREAKTHROUGH 

16K RAM BOARDS FOR 
APPLE JUST $129.95 



HAVE SOU BEEN WAITING FOR THE COST 
OF EXPANSION BOARDS TO COME DOWN? 
SOUS WAIT IS OVER. UP UNTIL NOW RAM 
EXPANSION HAS COST AS MUCH AS 
$195.00. MOW OMEGA MICROWARE IS 
PROUD TO ANNOUNCE THE ARRIVAL OF A 
TRLLV AFFORDABLE EXPANSION CARD. 

NOW VOl CAN RUN PASCAL, FORTRAN. 
56K CPM WITH A Z80 SOFTCARD. 
INTEGER BASIC. APPLESOFT AND OTHER 
LANGUAGES ON VOUR APPLE. NOW NOU 
CAN INCREASE USUABLE MEMORV FOR 
VISICALC. NOW VOUDON'THAVETOPAV A 
FORTUNE TO HAVE ALL THIS. 

AT SI29.95. OMEGAS RAMEX 16 IS THE 

LOWEST PRICED CARD AVAILABLE 
TODAV. 

WHAT DO SOU GIVE UP WHEN VOU 
PURCHASE THIS FIRST REALLV 
AFFORDABLE RAM EXPANSION CARD? 
WELL, VOU GIVE UP HAVING TO REMOVE 
ONE RAM CHIP FROM THE MOTHERBOARD 
OF NOUR APPLE. fOU GIVE UP HAVIN6 TO 
STRAP A CABLE FROM THE CARD TO VOUR 
MOTHER BOARD. THAT'S IT. WHAT NOU 
GET IS A SIMPLE. RELIABLE, BOARD 
THAT JUST PLUGS IN. MEMORV REFRESH 
IS ACCOMPLISHED ON THE BOARD 
ITSELF. 



THE RAMEX 16 IS GUARANTEED NOT JUST 
FOR 90 DAVS. NOT EVEN 6 MONTHS. OUR 
WARRENTV IS FOR ONE FULL VEAR FROM 
DATE OF PURCHASE. WE WILL REPAIR OR 
REPLACE ANV BOARD THAT IS DEFECTIVE 
THROUGH MANUFACTURE FOR A PERIOD 
OF ONE VEAR AFTER PURCHASE PROVIDED 
THIS DAMAGE IS NOT USER INFLICTED. 

ORDER VOUR RAMEX16 NOW BV CALLING 
TOLL FREE 1-800 835 2246. KANSAS 
RESIDENTS CALL 1-800-362 2421. 
MASTERCARD OR VISA ACCEPTED OR 
SEND $129.95. ILLINOIS RESIDENTS ADD 
$7.80 SALES TAX. 
ANOTHER CUALITN PRODUCT FROM 
OMEGA MICROWARE. INC. 
FORMERLY OMEGA SOFTWARE 
PRODUCTS, INC. 
222 SO. RIVERSIDE PlAZA 
CHICAGO. IL 60606 
PHONE 312-648-1944 
OMEGA MICROWARE. INC. 

APPLE AND APPLESOFT ARE REGISTERED 
-RAf>£MAR<S Of APPLE COMPUTES. INC. PASCAL IS A 
REGISTERED TRADEMARK Of The REGENTS OF THE 
UNIV. OF CA. SAN DIEGO. VISICAlC IS A REGISTERED 
TRADEMARK OF PERSONAL SOFTWARE. CPU IS A 
REGISTERED TRADEMARK C* DIGITAL RESEARCH INC. 
ISO IS A REGISTERED TRAOMARK OF ZIlOG. INC. 
50FTCA2D IS A REGISTERED TRAOMARK OF 
MICROSOFT 



HAVE YOU EVER WORKED ON A PROGRAM LATE INTO THE NIGHT? 



Now with the Program Line Editor (PLE), pro- 
gram development and modification take only a 
fraction of the time previously required. PLE is the 
most sophisticated program development tool ever 
made for the Apple II* computer, letting you devote 
your energies to design, analysis, and testing instead 
of the drudgery of repetitive keying of program lines 
requiring slight changes. 

FEATURES INCLUDE: 

SOPHISTICATED PROGRAM EDITING FEATURES - More than eleven editing commands, such as INSERT. DELETE, 
PACK, and FIND allow you to change a program line with a minimum of keystrokes. 

VERSATILE ESCAPE FUNCTIONS — User definable command sequences can be assigned to any key, then invoked when- 
ever desired by pressing ESC and that key. Twenty-seven predefined functions come with PLE (ROM version 
functions cannot be modified). 

LISTING CONTROL — This feature allows you to control program listings, CATALOGS, etc., with the touch of a key — 
stopping and starting them at will, or terminating them entirely. 

LOWER CASE - Lower case characters can now be entered directly from the keyboard without any cumbersome software 
patches. 

PROGRAMMABLE CURSOR CONTROL - Fancy screen displays are made possible with the Programmable cursor 
feature. Four characters control cursor movement in all four directions from within PRINT statements. 

INVISIBLE AND INDESTRUCTIBLE - When booted, PLE actually makes itself a part of the Disk Operating System. 
and thus is unaffected by INT. FP, and MAXFILES commands. 




NOW AVAILABLE ON DISK OR ROMI 

ROM version will operate on Mountain Computer, Inc's 

ROMPLUS board or the new Andromeda, Inc. ROM board 

Disk & ROM versions can operate on any configuration 

Apple II or Apple II PLUS with DOS 3.2 or DOS 3.3 

Apple II is a trademark of Apple Computer, Inc. 



ORDER YOURS TODAY! 
DISK. $40.00 / ROM $60.00 

Available at your local dealer or send check or money order 
to SYNERGISTIC SOFTWARE. 5221 120th Ave. S.E., Bellevue. 
Washington 98006. 
or call 206-226-3216. Wash, residents add 5.4% sales tax. 
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Ohio Scientific 
Superboard II 



• It's the first complete computer 
system on a board. 

• Superboard II uses the ultra 
powerful 6502 Microprocessor 

• 8K Microsoft BASIC-in-ROM 

• 4K static RAM on board, 
expandable to 8K 

• Full 53-key keyboard, with upper 
and lower case. Plus user 
expandability. 

• Video interface and audio 
cassette interface. 

The Ohio Scientific Superboard II at 
35329 — in today's economy — has 
got to be the best buy by far. It will 
entertain you with spectacular 
graphics made possible by its ultra 
high resolution graphics and super 
fast BASIC. It will help you in school 
or industry, as an ultra powerful 
scientific calculator. Advanced 
scientific functions and a built-in 
"immediate" mode allow you to 
solve complex problems without 
programming. 

The Superboard II can be 
expanded economically, for business 
uses, or to remotely control your 
home appliances and security. Even 
communicate with other computers. 

Read what's been written 
about Superboard II: 

"We heartily recommend Super- 
board II for the beginner who wants 
to get into microcomputers with a 
minimum cost. A real computer 
with full expandability." 

—POPULAR ELECTRONICS, MARCH 1 979 

"The Superboard II is an excellent 
choice for the personal computer 
enthusiast on a budget." 

—BYTE, MAY 1 979 



Look at these easy hardware prices: 

610 Board For use with Superboard II and Challenger 1 P. 

8K static RAM. Expandable to 24K or 32K system total. 

Accepts up to two mini-floppy disk drives. Requires + 5V 

@4.5 amps. S 298 

Mini-Floppy Disk Drive Includes Ohio Scientific's PICO DOS 

software and connector cable. Compatible with 610 

expander board. Requires + 1 2V @1 .5 amps and + 5V @ 

0.7 amps. (Power supply S. cabinet not included.] 299 

630 Board Contact us for important details. 229 

AC-3P 12" combination black and white TV/video monitor. 159 

4KP 4K RAM chip set. 79 

P5-005 5V 4.5 amp power supply for Superboard II. 45 

P5-003 1 2V power supply for mini-floppies. 45 

RF Modulator Battery powered UHF Unit. 35 

AC-12P Wireless remote control system. Includes control 

console, two lamp modules and two appliance modules, for 

use with 630 board. 175 

AC-17P Home security system. Includes console, fire 

detector, window protection devices and door unit for use 

with 630 board. 249 

C1P Sams C1 P Service manual 8 

C4P Sams C4P Service manual 16 

C3 Sams Challenger III manual 40 

Ohio Scientific and independent suppliers offer hundreds of programs for the 
Superboard II, in cassette and mini-floppy form. 



Freight Policies A« orders of $100 or more are 
shpped freight prepaid. Orders of less than $1 00 please add 
$4.00 to cover shipping costs. Ohio residents add 5.5% Sates Tax. 



Hours: Call Monday thru Friday. 
8:00 AM to 5:00 PM EOT. 
TOLL FREE: 1-800-321-5805 



Guaranteed Shipment 

Cleveland Consumer Computers & Components 
guarantees shipment of computer systems 
within 48 hours upon receipt of your order. 
Our failure to ship within 48 hours 
entitles you to $35 of software, FREE. 
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TO Order: Or to get our free catalog CALL 1-800-321-5805 TOLL FBEE. Charge your 
order to your VISA or MASTER CHARGE account. Ohio residents call: [S16] 464-8047. 
Or write, including your check or money order, to the address listed below. 

CLEVELAND CONSUMER 
COMPUTERS & COMPONENTS 

P.O. Box 46627 
Cleveland, Ohio 44146 

Onrlan Cnnmi Cleveland consumer P.O. Box 46627 

UrQCr ~Ul III. COMPUTERS & COMPONENTS Cleveland, Ohio 44146 

C Superboard II $329. □ RF Modulator $35. 

□ 61 Board $298. □ AC-3P 1 2 " B/W Monitor $1 59. 

□ Mini-Floppy Disk Drive $299. □ C1 P Sams Manual $8. 
[Attach separate sheet for other items.] 

NAME 

ADDRESS: 

CITY: 

PHONE: 



. STATE: 



ZIP: 



Payment by: VISA 

Credit Card Account #_ 
Expires 



MASTER CHARGE . 



MONEY ORDER 



Interbank #[Master Charge) 



TOTAL CHARGED OR ENCLOSED $_ 



. (Ohio Residents add 6.5% Sales Tax] 



Orders of less dan S100, please add $4.00 to cover shipping costs. Orders will be accepted from U.S. and 
Canada only. All prices quoted ere U.S . date of publication, standard UPS shipping FOB the factory. 
PRICES SUBJECT TO CHANGE WITHOUT NOTICE 
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MICROCRUNCH: 

An Ultra-fast Arithmetic 

Computing System 



Part 2 



^ 



This article describes software 
support for the fast mathematics 
hardware outlined in Part I 
(39:07). A detailed discussion of 
machine code routines 
necessary for communication 
between the arithmetic 
processing chip and BASIC is 
given, along with an overview of 
a BASIC home-brew compiler. 

John E. Hart 

Department of Astrogeophysics 
University of Colorado 
Boulder, Colorado 80309 



Part I described a hardware floating 
point board and demonstrated that truly 
high speed computing is only possible 
with a microcomputer if the floating 
point chip is used in conjunction with a 
compiler. This is true where the overall 
program is written in direct machine 
code. In this case, the source code higher 
level language statements do not need to 
be interpreted or pseudo- interpreted (as 
in Pascal). 

This article describes a compiler that 
is useful for fast arithmetic processing, 
but does not translate statement types 
that are rarely if ever used in 
mathematical problems. The fun- 
damental idea is to use the normal 
Microsoft BASIC interpreter to do most 
of the non-mathematical work and to 
form the overall program structure. 
When a mathematical loop containing 
floating point operations needs to be 
done, a jump is made to a machine 
language subroutine via USR that ex- 
ecutes the equations. It is only this 
machine language subroutine that is 
generated by the compiler. 

Our system compiles as machine 
code subroutines, all the time consum- 
ing mathematical operations. The 



source code for these subroutines in- 
cludes a limited subset of BASIC 
statements. Then the full BASIC 
language is used to input variables, set 
initial conditions, print results of 
calculations, and perform calculations 
that, because they are not iterated often, 
are not time consuming. 

There are several problems that need 
to be discussed. 

1. How to communicate between 
variables used by the 
mathematical subroutines and 
variables used in the BASIC main 
program. Since the C8231 
floating point chip uses a non- 
standard floating point format (at 
least it is different from that used 
by Microsoft) it is necessary for 
floating point subroutines to have 
their own variable space. The 
alternative of converting all 
BASIC variables to APU 
(arithmetic processing unit) for- 
mat upon entry to a subroutine, 
and then reconverting on exit, is 
extremely time consuming and 
wasteful since only a few of the 
variables used are actually input 
or output variables. In addition, 
any time a change is made in 
BASIC the variable table shifts its 
position, and BASIC array storage 
is cumbersome and inefficient. 

2. How to get in and out of a large 
number of compiler-generated 
machine code mathematical 
subroutines. Clearly you would 
like the option of writing several 
different subroutines and calling 
them from different points in the 
main program. Thus some kind 
of directory management is 
necessary. 

3. What BASIC statements and 
variable allocations do we allow 



in the source code for mathe- 
matical subroutines? 

The Limited BASIC Source 

Statements 

Variable allocation: 

Somewhat like a Tiny BASIC, all 
mathematical subroutine variables are 
described by a single alphabetic name 
A-Z. Unlike Tiny BASIC, any variable 
(except I, J, K, L, M, N that are integer 
variables for use in FOR loops and in- 
dexing) can be either a single number, a 
vector (e.g. A(I) ) or a two dimensional 
array (e.g. U(I,J) ). The vector dimension 
and the second array dimension must be 
less than 65 and the first array dimen- 
sion can be anything consistent with the 
memory map. Thus there are two types 
of arithmetic that can be done in a 
machine language mathematical sub- 
routine: integer and floating point. The 
integer arithmetic, used mostly for array 
indexing (e.g. U(I-2 + K, J + 31) ) is 
done by the 6502 and can only be sub- 
traction or addition. 

Statement List: 

SUB*, where #=1 to 9 indicating 
one of 9 possible subroutines. 

RETURN, return from subroutine. 

GOSUB#, where # = 1 to 9. GO to 
SUB* given. 

GOTO*, where #=1 to 9. GO to 
LABEL# within current subroutine. 

FOR I=lTOJ / NEXTI Same as 
BASIC except no expressions allowed in 
index setting part of statement. 

IF A=0THENGOTO* Same as 
BASIC, except label referred to 1 to 9, 
Variable reference (e.g. A) must be sim- 
ple variable, not vector, etc. Also less 
than is OK. Only comparisons w.r.t. 
zero can be made. 

LABEL* where # = 1 to 9. Jump point 
for GOTO and IF... THEN. 



No. 40 -September 1981 



MICRO - The 6502/6809 Journal 



83 



1 = J + K — 25, etc. General integer 
arithmetic involving only integer 
variables and numbers less than 256. 
Only addition and subtraction since 
these operations are done with the 6502. 
Mostly used in vector and array indices. 

END Denotes termination of a 
particular subroutine. 

In addition to these statements, general 
mathematical expressions can be writ- 
ten exactly as in BASIC. Example: 

X= 1.234*U(I-2,J + 1) + B(J) 
*SIN(3.141592*Y) 

This is a marked improvement over 
such primitive compilers as FLOPTRAN 
IV and BASEX that do not allow chained 
calculations or indexing. 

It can be seen that this subset of 
statements is sufficient to implement 
almost any conceivable iterative and/or 
conditional calculation. The advantages 
of the restricted variable set and limited 
statement types are a shorter and faster 
compiler. You should note that the 
compiler must trap all possible source 
code errors during the compilation, or 
the machine code subroutines will crash 
(or give back garbage) and debugging 
will be extremely difficult. This error 
trapping is the most difficult part of 
language translation, and it is made 
easier by using the restricted language 
outlined above. 

Source statements such as those 
required to do a long mathematical 
iteration or calculation, are entered into 
memory under control of an editor, and 
then are translated into machine code 
and placed in the upper end of memory. 
The compiler and editor are written in 
BASIC, but being essentially word pro- 
cessors and language translators, 
execute rapidly. The memory maps for 
the compilation and run modes are 
shown in figure 1. The APU variable 
space depends on the precise allocation 
of variables, dimensions of arrays, etc. 
The object code is tied to an initial ob- 
ject starting location OI that is set before 
compilation. 

Variable Format and Exchange 

Both Microsoft BASIC and the 
C8231 represent floating point numbers 
with four bytes. The first byte contains 
the exponent, and the next three contain 
the mantissa, with the most significant 
bit first. Of course here we are talking 
about a binary representation where a 
number is written as 



(a_+_b + c. + 
2 4 8 



ix 2 E 



Figure 1: MEMORY MAP (typical). Addresses are decimal 



_o 



Compilation 

Microsoft Overhead 

700 

BASIC Compiler 

16000 



Run 



_0 



Compiler Variables 



Source Code 



Object Code 



_18500 (typ) 
_20480 (typ) 

_32768 



Microsoft Overhead 

(loc 0-127 swapped out for math, subroutine) 

700 

BASIC: 

line 0-6 Overhead 

line 6-700 Main Program 

line 730-790 Overhead Routines 

_4000 (typ) 

_6000 (typ., depends on vari- 
able allocation) 
_19768 (OI-200) 



BASIC variables 

APU Variables 

Fixed Routines 

and 
Swap Storage 

Object Code 



_20480|OI + 512) 
_32768 



Figure 2: Floating Point Formats 
BASIC 



Byte 1 



7 
6 
5 

4 
3 
2 
1 




Exponent Sign 
Exponent MSB 



Byte 2 



7 
6 
5 
4 
3 
2 
1 




a 
b 
c 
d 
e 



Exponent LSB 

Mantissa Sign (a= 1 
inferred unless 0) 



APU 



Mantissa Sign 
Exponent Sign 
Exponent MSB 



Exponent LSB 
Mantissa a = 1 unless 



MANTISSA (most significant bit = bit 6 byte 2) 



Byte 3 



Byte 4 



5 
4 
3 
2 
1 


7~ 

6 

5 

4 
3 
2 
1 





u 
v 
w 



Mantissa Least Significant Bit 
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Here E is typically the exponent and a, 
b, c, and so forth, are the successive bits 
of the three byte mantissa, and are 
either or 1. Figure 2 shows the 
representations for the two systems. In 
BASIC a 1 in bit 7 of byte 2 indicates a 
negative number. For the APU, a 
negative number is indicated by a 1 in 
bit 7 of byte 1! Also, bit 7 of byte 2 in 
APU space is always a 1, except if the 
number is identically zero. That is, a= 1 
unless the number is zero. Note that 
since the mantissa sign occurs in byte 1 
for the APU variable, the exponent range 
is less by a factor of 2 than for the BASIC 
variable. Indeed the BASIC exponent 
range is + 127 to - 128, e.g. the expo- 
nent is biased by bit 7, or biased 
negative 128. However, the APU expo- 



nent is only biased negative 64 since the 
mantissa sign bit occupies bit 7. Thus 
bit 6 gives the exponent sign. 

Machine code routines have been 
written to convert back and forth 
between these two formats. Whenever 
you want to input a variable to APU 
space, or print out such a number, one 
of these routines is called by USR from a 
set of BASIC statements that precede 
the overall program as shown in figure 
1. This is discussed in more detail 
below. First we list a number of 
machine code routines that are useful in 
communicating between BASIC and the 
APU, and between the compiled code 
and the APU. These routines must be 



entered along with each object code, but 
unlike the object they do not change if 
either the BASIC source code or main 
program is altered. 



Fixed Routines 

Listing 1 is a BASIC program that 
will load all the fixed routines needed 
for execution. This program should be 
run after entering the initial object 
address OI. OI must be a multiple of 
256. In the example discussed below it 
is 78*256. The decimal entry points and 
functions of the routines entered by this 
program are as follows: 



» 



FOR N = 1 TO 6: POKE J + N - 1,H(N) : NEXT N: NEXT J 



Listing 1 

600 REM FIXED ROUTINES 

601 DATA 32,166,255,216,181,0,157,128,255,202,16,248,162 

602 DATA 127, 189, 0, 255, 149, 0, 202, 16, 248, 32, 56, 255, 162, 127, 181 ,0, 157, 

603 DATA 255,202,16,248,162,127,189,128,255,149,0,202,16,248 

604 DATA 173,6,255,41,30,240,3,76,116,162,96 

606 FOR J = OI TO OI + 55: READ Z: POKE J,Z: NEXT J 

607 DATA 165, 5, 240, 14, 56, 233, 255, 16,9, 56, 255,48, 5, 169, 30, 76, 153, 255 

608 FOR J = OI + 170 TO OI + 187: READ Z: POKE J,Z: NEXT J 

609 POKE OI + 176, WL: POKE OI + 180,01 / 256 - 1: POKE OI + 187,01 / 256 

610 DATA 173,1,251,173,6,251,145,4,200 
612 FOR J = 1 TO 9: READ H(J) : NEXT J 

614 FOR J = OI + 188 TO OI + 218 STEP 9: FOR N = 1 TO 9: POKE J + N - 1,H(N): NEXT N: NEXT J 

618 POKE OI + 223,96 

620 DATA 177,4,141,6,251,136 

622 FOR J = OI + 228 TO OI + 230: POKE J, 200: NEXT J 

624 FOR J = 1 TO 6: READ H(J) : NEXT J 

626 FOR J = OI + 231 TO OI + 249 STEP 6: 

627 POKE OI + 254,96 

630 DATA 173,0,251,173,6,251,48,248,41,30,208,1,96,133,6 

632 DATA 104,133,7,104,133,8,76,25,255 

634 FOR J = OI + 140 TO OI + 163: READ Z: POKE J,Z: NEXT J 

640 DATA 8,16,39,31,47 

642 FOR J = 1 TO 5: READ Z: POKE OI + Z,OI / 256 + 1: NEXT J 

644 DATA 24,163 

646 FOR J = 1 TO 2: READ Z: POKE OI + Z,OI / 256: NEXT J 

650 DATA 160,3,177,123,72,9,128,160,1,145,1,200,177,123,56,233,128,41 

652 DATA 127, 136, 136, 145, 1 , 104, 41 , 128, 17, 1, 145, 1, 160, 5, 177, 123, 136, 136 

653 DATA 145,1,200,177,123,136,136,145,1,96 

654 FOR J = OI + 56 TO OI + 101: READ Z: POKE J,Z: NEXT 
656 DATA 160,3,169,0,145,1,136,48,251,96 
658 FOR J = OI + 102 TO OI + 111: READ Z: POKE J,Z: NEXT J 

660 DATA 160,1,177,1,48,12,200,169,0,145,123,200,152,73,6,208,246,96 

661 DATA 76,210,255 

662 FOR J = OI + 117 TO OI + 137: READ Z: POKE J,Z: NEXT J 

663 POKE OI + 137,01 / 256 - 1: POKE OI + 2,01 / 256 - 1 
665 DATA 160,5,162,6,181,0,153,3,211,232,200,200,224,17,208,244,96 
667 FOR J = OI - 120 TO OI - 104: READ Z: POKE J,Z: NEXT J 
670 DATA 41 , 127, 200, 200, 145, 123, 160, 0, 177, 1 , 72, 41 , 128, 160, 3, 17, 123, 145 

672 DATA 123,104,41,127,24,10,48,2,56,234,106,136,145,123,177,1,200 

673 DATA 200,145,123,136,177,1,200,200,145,123,96 

674 FOR J = OI - 46 TO OI - 1: READ Z: POKE J,Z: NEXT J 
676 DATA 165, 1 , 141, 224, 255, 165, 2, 141, 225, 255, 173, 226, 255, 133, 1 , 173, 227 

678 DATA 255,133,2,32,57,255,173,224,255,133,1,173,225,255,133,2,96 

679 GOTO 684 

684 FOR J = OI - 256 + 176 TO OI - 256 + 209: READ Z: POKE J,Z: NEXT J 

686 DATA 4,9,12,17,22,25,30 

688 FOR J = 1 TO 7: READ Z: POKE OI - 256 + 176 + Z,OI / 256: NEXT J 

690 DATA 162,127,169,0,141,6,255,96 

692 FOR J = OI - 90 TO OI - 83: READ Z: POKE J,Z: NEXT J 

694 POKE OI - 84, OI / 256 + 1: STOP 



(Continued! 
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AARDVARK 

NOWMEANS BUSINESS! 



OSI 



WORD PROCESSING THE EASY WAY- 
W1TH MAXI-PROS 

This is a line-oriented word processor de- 
signed for the office that doesn't want to send 
every new girl out for training in how to type a 
letter. 

It has automatic right and left margin justi- 
fication and lets you vary the width and margins 
during printing. It has automatic pagination and 
automatic page numbering. It will print any text 
single, double or triple spaced and has text cen- 
tering commands. It will make any number of 
multiple copies or chain files together to print an 
entire disk of data at one time. 

MAXI-PROS has both global and line edit 
capability and the polled keyboard versions 
contain a corrected keyboard routine that make 
the OSI keyboard decode as a standard type- 
writer keyboard. 

MAXI-PROS also has sophisticated file 
capabilities. It can access a file for names and 
addresses, stop for inputs, and print form letters. 
It has file merging capabilities so that it can store 
and combine paragraphs and pages in any order. 

Best of all, it is in BASIC (0S65D 51/4" or 
8" disk) so that it can be easily adapted to any 
printer or printing job and so that it can be sold 
for a measly price. 
MAXI-PROS - $39.95 

NEW-NEW-NEW 
TINY COMPILER 

The easy way to speed in your programs. The 
tiny compiler lets you write and debug your pro- 
gram in Basic and then automatically compiles a 
Machine Code version that runs from 50-150 
times faster. The tiny compiler generates relocat- 
able, native, transportable machine code that can 
be run on any 6502 system. 

It does have some limitations. It is memory 
hungry — 8K is the minimum sized system that 
can run the Compiler. It also handles only a 
limited subset of Basic - about 20 keywords in- 
cluding FOR, NEXT, IF THEN, GOSUB, GOTO, 
RETURN, END, STOP, USR(X), PEEK, POKE, 
-. = /p/.^. A « .4 S» Variable names A-Z, and Integer 
Numbers frorn 6-64K. 

TINY COMPILER is written in Basic. It can 
be modified and augmented by the user. It comes 
with a 20 page manual. 
TINY COMPILER - $19.95 on tape or disk 
THE AARDVARK JOURNAL 

FOR OSI USERS - This is a bi-monthly 
tutorial journal running only articles about OSI 
systems. Every issue contains programs custom- 
ized for OSI, tutorials on how to use and modify 
the system, and reviews of OSI related products. 
In the last two years we have run articles like 
these! 

1) A tutorial on Machine Code for BASIC 
programmers. 

2) Complete listings of two word processors 
for BASIC IN ROM machines. 

3) Moving the Directory off track 12. 

4) Listings for 20 game programs for the OSI. 

5) How to write high speed BASIC - and 
lots more — 

Vol. 1 (1980) 6 back issues - $9.00 

Vol. 2 (1981) 2 back issues and subscription for 

4 additional issues - $9.00. 



ACCOUNTS RECEIVABLE - This program 
will handle up to 420 open accounts. It will age 
accounts, print invoices (including payment 
reminders) and give account totals. It can add 
automatic interest charges and warnings on late 
accounts, and can automatically provide and cal- 
culate volume discounts. 

24K and 0S65D required, dual disks recom- 
mended. Specify system. 
Accounts Receivable. $99.95 

* *« SPECIAL DEAL - NO LESS! * * * 

A complete business package for OSI small 
systems - (CI, C2, C4 or C8). Includes MAXI- 
PROS, GENERAL LEDGER, INVENTORY, 
PAYROLL AND ACCOUNTS RECEIVABLE - 
ALL THE PROGRAMS THE SMALL BUSI- 
NESS MAN NEEDS. $299.95 

P.S. We're so confident of the quality of these 
programs that the documentation contains the 
programmer's home phone number) 

SUPERDISK II 

This disk contains a new BEXEC* that boots 
up with a numbered directory and which allows 
creation, deletion and renaming of files without 
calling other programs. It also contains a slight 
modification to BASIC to allow 14 character 
file names. 

The disk contains a disk manager that con- 
tains a disk packer, a hex/dec calculator and 
several other utilities. 

It also has a full screen editor (in machine 
code on C2P/C4)) that makes corrections a snap. 
We'll also toss in renumbering and program 
search programs — and sell the whole thing for — 
SUPERDISK II $29.95 ( 5 1/4") $34.95 (8"). 



ANDFUN, 
TOO! 




BOOKKEEPING THE EASY WAY 
-WITH BUSINESS I 

Our business package 1 is a set of programs 
designed for the small businessman who does not 
have and does not need a full time accountant 
on his payroll. 

This package is built around a GENERAL 
LEDGER program which records all transactions 
and which provides monthly, quarterly, annual, 
and year-to-date PROFIT AND LOSS statements. 
GENERAL LEDGER also provides for cash 
account balancing, provides a BALANCE SHEET 
and has modules for DEPRECIATION and 
LOAN ACCOUNT computation. 
GENERAL LEDGER (and MODULES) $129.95. 

PAYROLL is designed to interface with the 
GENERAL LEDGER. It will handle annual 
records on 30 employees with as many as 6 
deductions per employee. 
PAYROLL- $49.95. 

INVENTORY is also designed to interface with 
the general ledger. This one will provide instant 
information on suppliers, initial cost and current 
value of your inventory. It also keeps track of the 
order points and date of last shipment. 
INVENTORY - $59.95. 

GAMES FOR ALL SYSTEMS 
GALAXIAN - 4K - One of the fastest and finest 
arcade games ever written for the OSI, this one 
features rows of hard-hitting evasive dogfighting 
aliens thirsty for your blood. For those who 
loved (and tired of) Alien Invaders. Specify 
system — A bargain at $9.95 

NEW -NEW -NEW 

LABYRINTH - 8K - This has a display back- 
ground similar to MINOS as the action takes 
place in a realistic maze seen from ground level. 
This is, however, a real time monster hunt as you 
track down and shoot mobile monsters on foot. 
Checking out and testing this one was the most 
fun I've had in years! - $13.95. 

NIGHT RIDER - You've seen similar games in 
the arcades. You see a winding twisting road 
ahead as you try to make time and stay on the 
road. NIGHT RIDER uses machine code to gen- 
erate excellent high speed graphics - by the same 
author as MINOS. 
NIGHT RIDER - $12.95 cassette only 

THIEF - Another machine code goody for the 
C1P cassette only. You must use mobile cannon 
to protect the valuable jewels in the middle of 
the screen from increasingly nasty and trigger 
happy thiefs. Fast action and fun for one or two 
players. THIEF $13.95 on CI cassette only I 

SUPPORT ROMS FOR BASIC IN ROM MA- 
CHINES - C1S/C2S. This ROM adds line edit 
functions, software selectable scroll windows, 
bell support, choice of OSI or standard keyboard 
routines, two callable screen clears, and software 
support for 32-64 characters per line video. 
Has one character command to switch model 
2 C1P from 24 to 48 character line. When in- 
stalled in C2 or C4 (C2S) requires installation 
of additional chip. C1P requires only a jumper 
change. - $39.95 

C1E/C2E similar to above but with extended 
machine code monitor. - $59.95 



OSI 



Please specify system on all orders 

This is only a partial listing of what we have to offer. We now offer over 100 programs, data sheets, ROMS, and boards 
for OSI systems. Our $1.00 catalog lists it all and contains free program listings and programming hints to boot. 

AARDVARK TECHNICAL SERVICES, LTD. 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 
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OI-80 Protect zero page address 1 
and 2 for APU BASIC conver- 
sions, and jump to proper 
conversion routine. 

OI-46 Convert APU variable whose 
start address is set in location 
1 and 2 and place result in 
BASIC variable pointed to by 
location 123-124 (the BASIC 
variable X since this is the 
first variable called by the 
main program as given in 
LIST 2 below). 

OI Entry to object code. Swap 

lower half of page zero to 
upper memory, jump to 
routine called from main pro- 
gram, swap back page zero, 
check for address range error, 
and return (warm start if error 
set). 

OI + 56 Convert BASIC variable 
pointed to by 123-124 to APU 
variable and set in four loca- 
tions starting with that 
pointed to by 1-2. 

OI+117 APU to BASIC conversion 
entry. Check if APU = 0, if so 
set X = 0, otherwise jump to 
OI-46. 

OI + 1 40 Check APU for error and busy 
status. If there has been an 
error (see part I), pull program 
counter off stack and exit. 

OI+170 Read APU floating point 
number on top of APU stack 
to memory starting with loca- 
tion pointed to by 4-5. 

01 + 228 Write memory floating point 

number starting at location 
pointed to by 4-5 to top of 
APU stack. 

BASIC Fixed Routines 

When a machine code mathematical 
subroutine is run a few BASIC 
statements must be included in the 
main program. These are given in list 2. 
The first line makes sure X is at the head 
of the variable table by setting it equal to 
zero. It also sets OI. Subroutines 730 
and 735 set the variable address bases for 
the variable A,B,C,D,E,F,G,H,T,X,Y,Z. 
That is, NF contains the relative address 
on page zero (after swapping) for these 
variables. For example, A starts at loca- 
tion 20, B at 24, etc., X at 56, Y at 60, 
and Z at 64. These subroutines are call- 
ed before the main program in lines 
8-700. 

The main program written out in list 

2 is used to run the mathematical test 
loop described below. Line 8 identifies 
the APU variable X, sets BASIC X=l, 
and calls subroutine 770 which executes 
a USR jump to the fixed routine that 



converts between these variables. 
Similarly, line 9 causes APU variable A 
to be set equal to the constant 1.00013. 
Line 10 identifies a call to the 
subroutine J whose starting address is 
set in line 2 (the first subroutine always 
starts at location OI + 512), then ex- 
ecutes this jump. Finally, line 11 iden- 
tifies a variable X that is converted, and 
then printed. In the conversion calls, 
first set Z$ equal to the desired variable 
name, then CALL 770 to go from BASIC 
to APU, or 780 for the inverse. 

The fixed routines outlined above, 
and these BASIC overhead instructions, 
are sufficient to manage a large number 
of mathematical subroutines and APU 
variables. If there is a warm start after a 
mathematical subroutine call, a 
GOSUB750 will print out the error code 
and an object address of a place near 
where the error occurred. 

An Example 

Consider the multiplication test pro- 
gram discussed in part I. This called for 
consecutive multiplication of X by a 
specified constant A for 40,000 times. 
One program to do this would set A and 
X, and call the following mathematical 
subroutine. 



SUB1 

FORI = 1TO200 

FOR J=1TO200 

X = X*A 

NEXTJ 

NEXTI 

RETURN 

END 

Note that two nested FOR loops are 
needed to get 40,000 because integer 
variables are limited to a range of to 
255 each. 

List 3 gives detailed description of 
the object code generated by the com- 
piler when the above statements were 
entered as a source code. Note 
OI= 19968 for this example. 

By inspecting this program you can 
see that the 6502 is used for loop con- 
trol. The variable table is the same as 
was set in statement 733-734 of list 2. A 
is at loc 20, X at 56. Note that some 
6502 statements are executed concur- 
rently while the C8231 is multiplying 
(20541-20549). Writing short 
mathematical expressions like X = X*A 
does not allow much co-processing 
because you are primarily reading and 



Listing 2 



1 X = 0: DIM S(20):OI = 78 * 256 

2 S(l) = 20480 

5 GOSUB 730: GOSUB 735 

6 REM END HEADER. MAIN PROGRAM, LINES 8-700. 

8 Z$ = "X":X = 1: GOSUB 770: REM BEGIN MAIN PROGRAM, SET SUBR. VARIABLE X=l . 

9 Z$ = "A":X = 1.00013: GOSUB 770: REM SET MATH SUBROUTINE CONSTANT A=l. 00013 

10 J = 1: PRINT "START": GOSUB 760: REM ENTER MATH SUBROUTINE 

11 Z$ = "X": GOSUB 780: PRINT X: REM PRINT FINAL VALUE OF X AFTER 40,000 MULTS 
20 STOP 

730 REM VARIABLE ADDRESS BASES— SINGLE VARIABLES ONLY 

731 DIM NF(26) 

733 FOR J = 1 TO 8:NF(J) = 16 + 4 * J: NEXT J:NF(20 = 52:NF(24) = 56:NF(25) = 60 

734 NF(26) = 64: RETURN 

735 REM SET CONSTANTS FOR OVERHEAD ROUTINES 

738 S(10) =01 + 226:S(11) = 01 + 227:S(15) = 256 

739 S(14) =01/ 256 - 1:S(16) =01 + 23:S(17) =01 + 24:S(18) = OI - 59: RETURN 
750 REM ERROR CHECK 

PRINT "ERROR CODE="; PEEK (OI + 262) AND 30 

PRINT "ADDRESS="; PEEK (OI + 263) + PEEK (OI + 264) * 256: PRINT : RETURN 

REM 760 IS SUB CALL ENTRY J=SUB# 

IF J > 9 OR J < 1 OR S(J) = THEN PRINT "ILL SUB CALL TO #";J: STOP 
761 X = S(J):XS = INT (X / 256): POKE S(17),XS: POKE S(16),X - 256 * XS 
763 POKE 11,0: POKE 12,01 / 256:X = USR (0): RETURN 

770 REM BASIC TO APU CONV, Z$=CHAR, J=INDEX, I=PAGE INDEX 

771 XS = ASC (Z?) - 64: IF XS < > 10 THEN IF NF(XS) < > THEN I = 1 : J = 1 

772 POKE 11,176: POKE 12,S(14): POKE S(10),NF(XS) 

773 POKE S(ll),79: IF X = THEN POKE S(18),102 

774 IF X < > THEN POKE S(18),56 

775 XS = USR (0): RETURN 

780 REM APU TO BASIC 

781 XS = ASC (Z$) - 64: IF XS < > 10 THEN IF NF(XS) < > THEN I = 1:J = 1 

782 POKE 11,176: POKE 12,S(14): POKE S(10),NF(XS) 

783 POKE S(ll),79: POKE S(18),117 

784 XS = USR (0): RETURN 



751 
752 
759 
760 
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List 3: A sample object code (all addresses decimal). 



20480 
20482 
20483 

20485 
20487 
20489 
20491 
20494 
20495 



162,1 

202 

134,10 

166,10 

224,200 

208,3 

76,81,80 

232 

134,10 



LDX-IMM 

DEX 

STX-Z 

LDX-Z 

CPX-IM 

BNE 

JMP 

INX 

STX-Z 



10 

10 

200 

3 

20561 

10 



initialize integer I (I at loc 10 

page zero) 

load I 

I equal to 200? 

If true jump out of For loop. 
If I less than 200 increment, 
restore I 



20497 


162,1 


LDX-IMM 


1 




20499 


202 


DEX 






20500 


134,11 


STX-Z 


11 


initialize integer J (J at loc 1 1 
page zero) 


20502 


166,11 


LDX-Z 


11 


load J 


20504 


224,200 


CPX-IM 


200 


J equal to 200? 


20506 


208,3 


BNE 


3 




20508 


76,78,80 


JMP 


20558 


If true jump out to next I 


20511 


232 


INX 




If J less than 200 increment J 


20512 


134,11 


STX-Z 


11 


restore J 


20514 


169,56 


LDA-IM 


56 


load address base for variable X 
(lo) 


20516 


133,4 


STA-Z 


4 


put into zero page loc 4 (variable 
pointer) 


20518 


160,0 


LDY-IM 







20520 


132,5 


STY-Z 


5 


put address base (hi) into loc 5 


20522 


32,228,78 


JSR 


20196 


goto fixed routine to write X to 



20525 169,20 

20527 133,4 

20529 160,0 

20531 132,5 

20533 32,228,78 



LDA-IMM 

STY-Z 
LDY-IM 
STY-Z 
JSR 



20536 169,18 LDA-IM 

20538 141,7,251 STA-AB 



20 

4 


5 
20196 



18 
64263 



20541 


169,56 


LDA-IM 


56 


20543 
20545 
20547 
20549 


133,4 
160,0 
132,5 
32,140,78 


STA-Z 
LDA-IM 
STY-Z 
JSR 


4 


5 
20108 


20552 


32,170,78 


JSR 


20138 


20555 
20558 
20561 


76,22,80 

76,5,80 

96 


JMP 
JMP 
RTS 


20502 
20485 



top of APU stack 

load address base for variable A 

(loc 20, page 0) 

set address pointer 



write variable A to APU stack (to 
OI + 228) 



load op code for multiply 
command APU to multiply top of 
stack by next on stack, result to 
top of stack 

set address base for variable X 
(loc 56 page 0) 



APU busy-error check (to 

OI+140) 

Read APU to memory (to 

OI+170) 

J loop return 

I loop return 

return from subroutine 1. 



writing from the APU. However, in 
longer calculations involving arrays and 
complicated indexing, time saved by co- 
processing can amount to a factor of 2 or 
more. 

The above listings, along with this 
example, should give the reader enough 
information to write machine code 
subroutines by hand. The 6502 just im- 
plements, writes, and reads to and from 
the APU, sends it commands and checks 
its status. Standard 6502 operations can 
be used for loop control, jumps between 
subroutines, etc. It should be possible, 
without undo effort, to write out such 
object codes for fairly straightforward 
calculations. If you want to try this par- 
ticular program the DATA list in listing 
4 should be helpful. 

DATA 162, 1 , 202, 134, 10, 166, 10, 224, 200, 208 
DATA 3,76,81,80,232,134,10,162,1,202 
DMA 134,11,166,11,224,200,208,3,76,78 
DATA 80,232,134,11,169,56,133,4,160,0 
DATA 132,5,32,228,78,169,20,133,4,160 
DATA 0,132,5,32,228,78,169,18,141,7 
DATA 251 , 169, 56, 133,4, 160, 0, 132, 5, 32 
DATA 140,78,32,170,78,76,22,80,76,5 
DATA 80,96 



Of course, the ultimate situation is 
to have the compiler write out the object 
code as illustrated above. Clearly it 
takes each BASIC source statement and 
branches out to routines that parse 
through the line according to the fun- 
damental operation (e.g. FOR, NEXT, a 
mathematical expression, etc.). The 
most complicated aspects of a compiler 
involve rewriting general mathematical 
expressions into a stack-processing type 
form suitable for the C8231, and in the 
process trapping any errors in the source 
code. The compiler is much too long to 
list here (16K of BASIC statements), or 
to describe in detail. However, I hope 
these two articles have illustrated how 
fast mathematical processing can be car- 
ried out on a simple micro at minimal 
cost. Enough material has been 
presented to write and execute simple 
mathematical subroutines. For further 
information (a complete manual and 
cassette tape) on the compiler please 
write the author. 



Two years ago John Hart became interested 
in using a microcomputer to control 
laboratory experiments, and to do 
theoretical calculations involved with his 
research in meteorology and physical 
oceanography. The system described above 
has been used to solve a variety of problems 
concerned with flow over or around 
mountains and simple climate models. 
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Here's the KEY 
to your Apple®! 




P«ogfamm#r'i 
Hondbook 



JBI * 



Computer 

Station's 
Programmers 

1 Handbook 

for the 

Apple® 



Retail Price 

29.95 



Indexed Looseleaf notebook (7W x 9") 

containing all the reference material found in our 

popular Programmers Guide to the Apple II ' 



• Applesoft ' & Integer 

• CP/M Digital 
Research. Inc. 

• Basic-80 Microsoft 

• Pascal 



• 6502 Assembly Language 

• DOS 3.3 

• DOS Tool Kit 

• Monitor 



Including Command References for 

Applewriter' • Macro-Seed 

Visicalc ' Personal Software 

Hardware Configurations & 
Software Commands for 



Spinwriter 
PaperTiger 



• Silentype 

• Special ROMs 



Two diskette pockets in front & back. Notebook 

format allows user to add personal comments. A 

must for every Apple ' owner Available from your 

local Apple ' Dealer or from 

Computer Station 

11610 Page Service Dr. 

St. Louis. MO. 63141 

(314)432-7019 

Direct order will incur a $2.00 shipping/handling 
charge plus sales tax where applicable 

Apple. Apple II and Applesoft «re the registered trademark* nl 
Apple Computer. Inc 



r 
' 



NEW! 

CHECKBOOK CHECKV'RITER 

PROGRAM FOR. 

TRS 80CC ,V APPLE l|™ 

TRS 80 MODI/LEVEL II'" 

TRS 80 MODEL III 

CASSETTE TAPE S9.95 

LISTING S4 




NOW. . .Continuous Checks 

That Can be Used With or Without Your Computer!! 
The Best in A Home Checking System 



Thai's right. Continuous Checks fan-folded in 
a 3-to-a-page desk sot design. And they can be 
computer printed, handwritten or typewritten 
— whichever suits the quantity or situation 

SPECIAL DESIGN 
Out checks are not a high-volume business 
form adaptation They're specially designed 
Computer/Manual Checks for the home 
user. And they're easy to use. too No need to 
change printer form width when loading. Our 
checks are the same 9Vj" width as standard 
tractor feed printer paper. Chuck tear down 
size is the same as the classic personal- sired 
check issued by all banks 

COMPLETE HOME SYSTEM 
With this system you can print the bulk of your 
monthly checks on your computer using our 
program. Your checks and stubs can then be 
stored in our attractive Data Ring Binder 
Checkbook. Later, if you have a few checks to 
write, there's no need to load them into a 
printer - just write a check at your desk as 
shown above. And you can mail your checks in 
our dual windowed envelopes to eliminate 
addressing chores. 

UNIQUE 
You won't find continuous Checks like these 
anywhere And, our special small quantity 
printing process will give you excellent quality 
and appearance. Standard color-coordinated 
imprinting and encoding is as shown above 



(logo can be omitted) on blue, grey, green. 01 

buff checks _ 

PRICED RIGHT 

Two Hundred checks are just $29.95 (enve 
lopes $14.95) Five Hundred checks are 
S49.95 (envelopes $27.95) Data Ring Check- 
books are only $4.95. 

Special "ORDER NOW" Otter 
So that you can start using your computer 
immediately to pay your monthly bills, we'll 
make you a special package offer. If you order 
directly from this ad. we can send you 

200 Checks. 100 Envelopes. A Binder. 

and Program for $49.95 

OR - 

500 Checks. 300 Envelopes, A Binder. 

and Program for S74.95 

You'll save as much as $9.85 over the 
separate purchase price. And with the special 
package you can begin your monthly check- 
book balancing and bill paying as soon as you 
receive your checks. Just enclose a voided 
check (for encoding information) wuh your 
payment (VISA - MasterCard orders must 
show signature, expiration date, and account 
number) Or. send today for samples 

SYNERGETIC Anb shepherd ro 

SOLUTIONS DEPARTMENT M91 

PHONE (813)646-6557 



MULBERRY. EL 33860 
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IlllllllllltllllllllllllllllllltlllllllllllllllllllllllllllllllllllllllHIIIIIIIIIIIIIII 

ATTENTION: SOFTWARE AUTHORS 

OHIO SCIENTIFIC 

(A m/a— COM COMPANY) 
IS SEEKING A 



6502 based, full screen edit, cursor orientated wore 
processor to run on its Challenger series microcomputers 
Programs submitted should either currently run on O.S.I, 
products or should include parameters on adaptability. 
Ability to operate on both memory mapped video and serial 
CRT, as well as data file linkage, preferred. 

Legal Authors should contact the official agents: 
—Department W.P., Anaheim Computer Distributing, 1150 
Knollwood Circle, Anaheim, California 92801, U.S.A. 

Any copyright information or preconditions should be 
stated at the time of submission of program. Both Ohio 
Scientific and Anaheim Computer Distributing will treat all 
communications in the strictest confidence. 

For any discussion call Keith Beverton at 1-714/995-3041 
between 11:30 a.m. and 12:30 p.m. (19.30 and 20.30 GMT) 
-Monday to Friday. 
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OSI COMPATIBLE HARDWARE 

IO-CA10XSERIALPORT S125 

ACIA based RS-232 serial printer port. DIP SWITCH selectable baud rates of 300-9600. 
Handshaking (CTS) input line is provided lo signal the computer when the printer butter 
is full. Compatible with OS-65U V1.2 and OS-65D- 

IO-CA9 PARALLEL PORT $175 

Centronics Standard Parallel printer interface for OSI computers. The card comes com- 
plete with 10 ft. of flat ribbon cable. Compatible with OS-65D and OS-65U software. 
IO-CA9D DIABLO PARALLEL PORT $1 75 

DIABLO 12 BIT WORD Parallel port for use with word processor type printers. Complete 
with 10 ft. cable. Compatible with OS-65U software. 

IO-LEVEL3 MULTIUSER EXPANSION $450 

Provides 3 printer interfaces currently supported by OSI-Senal, Centronics Parallel, 
Diablo Parallel. 4K of memory at D000 for Mulli-user executive. 4 Port serial cluster. The 
LEVEL 3 card allows expansion o' an OSI C3 machine up to 4 users with appropriate ad- 
ditional memory partitions. 

24MEM-CM9...S380 16MEMCM9...S300 8MEM-CM9...S210 

24K memory card is available at 3 different populated levels. All cards are fully socketed 
lor 24K of memory. The card uses 21 14-300ns chips. DIP SWITCH addressing is provided 
in the form of one 16K block and one8K block. Also supports DIPSWITCH memory parti- 
tion addressing for use in multiuser systems. 

FL470 FLOPPY DISK CONTROLLER $180 

OSI-Type floppy disk controller and real time clock. Will Support 5V« " or 8", Single or 
double-sided drives. Requires drives with separated data and clock oulputs. 

BIO-1600 BARE 10 CARD $50 

Super 1/0 Card. SupportsSK ot 21 14 memory in two DIPSWITCH addressable 4K blocks. 
2 16 Bit Parallel Ports may be used as printer interlaces, 5 RS-232 Serial Ports with CTS & 
RTS handshaking. With manual and Molex connectors. 

BMEM-CM9 BARE MEMORY CARD $50 

Bare 24 K memory card, also supports OSI-type real time clock and floppy disk controller. 
With manual and Molex connectors. 

#96 PROTOTYPE CARD $35 

Prototype board holds 96 14 or 16 pin IC's. Will also accommodate 18, 24. or 40 pin IC's. 
Row and column zone markings, easy layout. v, 6 " epoxy glass P.C board. 
C1PEXPEXPANSION INTERFACE $65 

Expansion for C1 P 600 or 61 boards to the OSI 48 Pin Buss. Uses expansion socket and 
interface circuitry to expand to 48 Pin Backplane. Requires one slot in backplane. 
BP-580 BACKPLANE $47 

Assembled 8-slot backplane wilh male Molex connectors and terminalion resistors. 
DSK-SW DISK SWITCH $29 

A circuit when added to OSI Mini floppy systems extends the life of drives and media. Ac- 
complish this by shutting off Minifloppy Spindle motor when system is not accessing 
the drive. Complete KIT and manual. 

PW-5-6 POWER SUPPLY $29 

Power One brand supply 5V - 6 amps with overvoltage protection. Reg. $49.95. 

D&N MICRO 

INC. 

3684 N. Wells Street Ft. Wayne, Indiana 46808 
219/485-6414 

TERMS: Check or money order Add $2 Shipping, Outside U.S. add 10%. 



Engineering 



PROJECT ENGINEER 

ELECTRONICS 

DEVELOPMENT 

If you appreciate the challenge of a fast-paced, professional 
environment, this opportunity within our Hyland Diagnostics 
Division may be of interest. As a leading international 
medical products manufacturer with facilities in operation 
throughout the world, we seek degreed, "hands-on" electronic 
technologists or engineers to modify and develop micro- 
processor controlled manufacturing equipment. 

Qualified candidates will have shown ability to: 

• Successfully meet project objectives 

• Design and prototype microprocessor controlled 
mechanisms 

• Effectively interface with corporate support and 
manufacturing personnel 

• Program 6502 Synertek Microchips 

Strong communications and interpersonal skills enabling you 
to work closely with all levels of our staff are essential. 

This position is located at Travenol's Round Lake facility, 
offering ready access to Chicago, Milwaukee, and Wisconsin 
resort areas. We provide a competitive salary commensurate 
with experience. A generous benefits package includes profit 
sharing and employee stock purchase plan. If you seek a 
professional environment, send your resume with salary 
history and requirements in confidence to: Vincent T. Luber. 

Travenol Laboratories, Inc. 

Administration Bldg. 

P.O. Box 490 

TRAVENOL Round Lake, III. 60073 

Equal Opportunity Employer (312) 546-6311 



DYNAMIC DUO 



Designed and Engineered 
Specifically for the 
SYNERTEK SYM-1 and KTM-2 

• VITAL COMPONENTS PROTECTED 

• ALL FASTENERS PROVIDED 

• NO ALTERATION REQUIRED 

• EASILY ASSEMBLED 



ATTRACTIVE FUNCTIONAL PACKAGING 



• High Quality Thermoformed Plastic' 

• Molded In Data Blue Color 

• Available From Stock "Ronm s Mass -kydex too 




enclosures 
group 

786 bush street 

san francisco, California 94108 



TO ORDER: I. Fill in this coupon (Prim or Type Pleas 
2. Attach Check or Money Order. 



NAME . 
STREET 

CITY 



.STATE. 



-ZIP. 



FOR SYM-1: Please Ship Prepaid . 



SSE 1-1(s) @ S39.50 each 



TOTAL 
ENCLOSED: S. 



Dealer Inquires Invited. 



California Residents Please Pay $42.07 (includes Sales Tax) 

FOR KTM-2: Please Ship Prepaid SKB 1-3(s) @ $69.50 each 

California Residents Please Pay $74.02 (Includes Sales Tax) 

• No C.O.D.'s Please. — Allow 2-3 Weeks for Processing and Delivery. 
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SYM-1 Expansions 

Bare W7AAY 4K RAM board: $8.00 plus 
SASE. Assembled W7AAY ROM board: 
$16.00. RAE symbolic disassembler source 
on cassette: $15.00. Instruction packet to 
add floppy disks to SYM -$15.00. RAE/ 
KMMM software interface on 5!4" disk- 
ette: $15.00. SASE for more information. 

John M. Blalock 

Blalock & Associates 

P.O. Box 39356 

Phoenix, AZ 85069 
Extended SYM-BASIC 

Adds 30 commands, requires 16K, $85 
US/$95 Can., object on cassette, manual, 
and source listing. SYM-FORTH 1.0: fig- 
FORTH for 16K SYM-1. Editor, assembler, 
cassette interface $135 US/$155 Can., 
object on cassette, manual and source 
listing. 

Saturn Software Limited 

8246 116ASt. 

Delta, B.C., V4C 5Y9 

Canada 

C1 P Extended Monitor 

2K EPROM has 14 cursor control/editing 
functions, improved keyboard decoding. 
Machine language save, load, display, 
modify, move, breakpoint processing and 
much more. For 24, 32, 64 char/ line. 
$39.95 plus $1.00 shipping. $1.00 for 
complete information. 

Bustek 

P.O. Box A 

St. Charles, MO 63301 

PET/CBM Owners 

Real world software at low cost. 2114 
RAM adapter and 4K Memory Expansion 
for "old" 8K PETs. Write for free catalog! 

Optimized Data Systems 

Dept. M, Box 595 

Placentia, CA 92670 

PET Arcade Software 

Astroidz and Munchman games for your 
8K old-new ROMS. Astroidz are invading 
the galaxy. Four levels of play. Munchman 
is based on arcade game Pac-Man. ZIP and 
ZAP are out to get you. Fantastic graphics. 
$9.95 each cassette. 

ComputerMat 

Box 1664M 

Lake Havasu, AZ 86403 
Spanish Hangman 

2,000 SPANISH words and sentences 
taught in a fun way on the Apple. Send for 
your school's free 30-day evaluation 
diskette, from: 

George Earl 

1302 South General McMullen 

San Antonio, TX 78237 



Ohio Scientific Tee-Shirts 

Men's S, M, L in black with blue to white 
Logo, $7.50. We also have an XREF pro- 
gram (list variables and line #'s), disk 
$24/tape $6.98, and a true backspace, 
screen stall and clear for C1P at $6.98. 
Please add $.75 postage/handling on all 
orders. 

Computer Business Service 
P.O. Box 20384 
San lose, CA 95160 

Business Software by ADS 

For the Apple n and Atari/800. Why pay 
more for a bunch of unrelated programs? 
Business Plus will handle invoices, 
statements, credit memos and more, 
much more! |ust $299 complete or $25 for 
demo disk (credited towards purchase). 
VISA, Mastercharge accepted. 

Advanced Data Systems 

7468 Maple Avenue 

St. Louis, MO 63143 

314/781-9388 

Super-Maze 

Attention OSI owners: Get Super-Maze, 
similar to the arcade game. Runs on 
32 x 64 cassette systems; or Super-Maze II 
— a faster and more aggressive version. 
Send $1.50 for more information, or 
$14.95 for Super-Maze, $17.95 for Super- 
Maze II, $21.95 for both, $2.00 for hard 
copy only. 

Vega Enterprises 

1564 Locust Ave., Suite 101A 

Long Beach, CA 90813 



Free PET/CBM COMAL Interpreter 

The battle between BASIC and Pascal may 
soon be over. COMAL is winning. COMAL 
is powerful and structured like Pascal, 
easy to learn and use like BASIC. COMAL 
interpreter is FREE with each User's 
Group diskette. Write for details. 

COMAL User's Group 

5501 Groveland Ter. 

Madison, WI 53716 

SeaFORTH for KIM/SYM/AIM/SEA 
Systems 

Threaded subroutine, compiled (not inter- 
preted) FORTH is much faster than fig- 
FORTH. Editor, assembler, compiler is 
8K, ROMable. Floating point, disk exten- 
sions, OEM Target Compiler available. 
For the advanced FORTH programmer. 
Single-user license — $100 (cassette) or 
$100 plus ROMs. 

Seawell Microsystems 

P.O. Box 20367 

Seattle, WA 98102 

(206) 322-3123 

OSI Superboard — 
Cabinet and Accessories 

Pre-cut kit with hardware to build a hand- 
some pine cabinet to house your super- 
board. Room inside for the power supply 
and all your extras, $20. RS-232 interface 
kit, $10. Send for our catalog of software, 
hardware, kits and accessories. 

Dee Products 

150 Birchwood Road 

Carpentersville, IL 60110 

JUCftO 



CBM/PET? SEE SKYLES ... CBM/PET? 



"You mean this one little 
Disk-O-Pro ROM will give my 
PET twenty-five new commands? 

And for just $75.00? Why, that's only $3.00 a command!" 

The Disk-O-Pro in any PET with Version III (BASIC 2.0) ROMs (### COMMODORE 
BASIC ###) will give 19 software compatible disk instructions': 15 identical with the new 
BASIC 4.0 (or with 8032 ROMs) compatible with both old and new DOS. Plus 4 addi- 
tional disk commands. . .including appending (MERGE), overlaying (MERGE # ) 

and PRINT USING, allowing formatting output of strings and numbers on the PET 

screen or on any printer. 

*NOTE: Old DOS doesn V recognize three of the commands. 

Those are just 3 of the important commands — and there are 7 more beauties — on 
your Disk-O-Pro that have never been available previously to PET/CBM users. (Skyles 
does it again!) . . . Beauties like the softtouch key (SET) which allows you to define a key 
to equal a sequence of up to 80 keystrokes; like SCROLL whereby all keys repeat as well 
as slow scrolling and extra editing features; like BEEP which allows you to play music on 
your PET. 

The Disk-O-Pro is completely compatible with the BASIC programmer's Toolkit. The 
chip resides in the socket at hexadecimal address $9000, the rightmost empty socket in 
most PETS. And for the owners of "classic" (or old) PETS, we do have interface 
boards. 

(For those owning a BASIC 4.0 or 8032, even though the Disk-O-Pro may not be suit- 
able, the Command-O is. Just write to Skyles for additional information. Remember, we 
have never abandoned a PET owner.) 

Complete with 84-page manual written by Greg Yob... who was having so much fun 
that he got carried away. We had expected 32 pages. 

Skyles guarantees your satisfaction: if you are not absolutely happy with your new 
Disk-O-Pro ROM chip, return it to us within ten days for an immediate full refund. 

Disk-O-Pro from Skyles Electric Works $75.00 

Complete with interface board (for "classic" PETS) 95.00 

Shipping and Handling (USA/Canada) $2.50 (Europe/Asia) $10.00 

s\. California residents must add 6%/6'/i % sales tax, as required. 

W SkyieS Electric Works Visa/Mastercard orders: call tollfree 

H 231E South Whisman Road (800) 227-9998 (except California). 

JL. Mountain View, California 94041 California orders: please call (415) 

W (415)965-1735 965-1735. 
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PANORAMAS! 






..... hp 



with 



5«u:s: 



ft .Mm ii 

a mm 
/V/-/?ES GRAPHICS DUMP ROUTINES 



s ii ,-:sa 




Easy to Use! Multiple Scale Factors! 

Precise Reproduction! Normal/Inverse Inking! 

Dump either page one or page two, horizontally or 
vertically on the paper; or, dump both as a two page 
panorama with both pages butted in perfect registra- 
tion. Compatible with I/O cards from Apple, Epson, SSM, 
Tymac, California Computer and Mountain Computer. 

SCALE FACTORS PROVIDED 



PRINTERS 


PANORAMIC or VERT 


HORIZ 


POST-PAID 


SUPPORTED 


1X 


2X 


3X 4X 5X 


IX 2X 3X 


PRICE 


DP9000 


• 


• 






29.95 


DP9001 


■ 


• 


■ 


• • 


39.95 


DP9500 


• 


• 


• • 


• • 


44.95 


DP9501 










49.95 


MX70 


• 


• 






29.95 


MX80 


• 


• 






29.95 


MX 100 


■ 


• 


• • 


• • 


44.95 


IDS440 


• 


• 






29.95 


IDS445 


• 


• 






29.95 


IDS460 


• 


• 


• 


• • 


39.95 


IDS560 










49.95 



SmartWare 

2281 Cobble Stone Court Dayton, Ohio 45431 

513/426-3579 Dealer Inquiries Invited! 



POWER TO YOUR AIM 
Treat Your AIM to a Quality Power Supply 



1. Designed to Rockwell's specifications for the 
AIM 65 (5 volts at 2 amps, regulated; 24 volts, .5 
amps avg., 2.5 amps peak, unregulated). 

2. Overvoltage protection to protect the expensive 
circuits in your AIM (5 volt output). 

3. Handsome all metal case (two-tone blue). 

4. Fuse (externally accessible), switch, pilot light, 
line cord, cable from power supply to AIM — all 
included. 

5. Conservative thermal design for long life. 

6. Special on orders postmarked in August or 
September. $59.95 plus shipping (5 lbs.). 
(Regularly $64.95.) 



CA residents add 6% sales tax. 
VISA/MC, cashier's or registered check. 
Personal check (allow 2 weeks to clear). 

CompuTech 

Box 20054 

Riverside, CA 92516 






GET FREE SOFTWARE FOR YOUR APPLE!!! 

HOW? Just order any of the items below, and for every $100 worth of merchandise order an item 
from the Bonus Software Section at NO COST! CO.D. & Personal Checks accepted for all orders. 



HARDWARE BY APPLE 

APPLE II PLUS. 48k 1199 

DISK DRIVE+CONTROLLER (a3) 535 

DISK DRIVE only 445 

Language System w. Pascal 397 

Silentype Printei & Interface 549 

Integer of Applesoft Firmware Card 159 

Graphics Tablet 645 

Parallel Printer Interface Card 149 

Hi-Speed Serial Card 155 

HARDWARE by Others 

HAYES MICROMODEM II 300 

VIDEX VIDEOTERM 80 W. GRAPHICS 320 

MICROSOFT Z80SOFTCARD 269 

MICROSOFT 16k RAMCARD 159 

CORVUS 10MB HARD DISK CALL 

SSMAIO SERIAL/PARALLEL A&T 189 

MICRO-SCI Disk & Controller 495 



VIDEO MONITORS 

Leedex- Video- 100 17' B&W w/Cable 

Leedex 12" Green w/Cable 

Leedex 13" COLOR MONITOR & cable 



SOFTWARE by APPLE 

APPLE FORTRAN 
APPLE PILOT 

HARDWARE 

by Mountain Computer 

Clock/Calendar Card 
A/D& D/A Interface 
Expansion Chassis 
ROMplus Card 
Mark Sense Card Reader 



SOFTWARE by Others 



139 


PEACHTREE BUSINESS SOFTWARE 


CALL 


IBS 


VISICALC 


120 


399 


EZ WRITER PROF. SYSTEM 


229 




APPLE FORTRAN by MICROSOFT 


159 




APPLE BASIC COMPILER by MICROSOFT 


315 




APPLE COBOL by MICROSOFT 


599 




MUSE SUPER-TEXT II 


139 


159 


PROGRAMMA APPLE PIE 


119 


125 


PRINTERS 




ter 


EPSON MX-80 


515 


239 


EPSON MX 70 W. GRAPHICS 


415 


319 


CENTRONICS 737 


737 


555 


NEC SPINWRITER 5510 RO 


2795 


135 


VISTA V3O0 DAISY WHEEL 25CPS 


1750 


995 


VISTA V300 DAISY WHEEL 45CPS 


2025 



BONUS SOFTWARE HERE! 



Let u* acquaint you with MESSAGE-MAKING SOFTWARE. 
Just place the (ink in the APPLE, enter the text, end colorful, 
dynamic messages appear on the screens of TV set* connected to 
the computer. Use the software to broadcast messages on TV 
screens In schools, hospitals, factories, store windows, exhibit 
booths, etc The following program is our latest release: 
SUPER MESSAGE: Creetes messages In full-page "chunka". 
Each message allows statements of mixed typestyle*. typesiies 
end colors, In mixed upper and lower case. Style* range from 
regular APPLE characters, up to double-sire, double-width char- 
acters with e heevy, bold font Six colors may be used for each 
different typestyle. Vertical and horizontal centering are availa- 
ble, and word-wrap Is automatic Users can chain pages together 
to make multl-pege messages. Pages can be advanced manually 
or automatically. Multi-page messages can be stored to disc or 
recalled Instantly. 
REQUIRES 48K & ROM APPLESOFT $ 60. 



APPLE PLOTS YOUR DATA & KEEPS YOUR RECORDS TOO 
APPLE DATA GRAPH Zl: Plots up to 3 superimposed curves 
on the Mt-rei Screen both the X & Y axes dimensioned. Each 
curve consists of up to 120 piece* of data. Graphs can be stored 
to disc and recalled Immediately for updating. Up to 1 00 graphs 
can be stored on the same disc Greet for Stock-market Charting. 
Business Management, and Classroom Instruction! 

REQUIRES 48K& ROM APPLESOFT J *XX 

APPLE RECORD MANAGER: Allows complete files to be 
brought into memory so that record searches and manipulations 
ere Instantaneous. Records within any file can contain up to 
30 fields, with user-defined heading*. Information can be string 
or numeric Users can brow** thru file* using page-forward, pape- 
backward or random-aearch command*. Records can easily be 
searched, altered or sorted at wllL Files can be stored on the 
■ me drive as the master program, or on another. If e second drive 
It available. Records or files can be printed, tt desired. 
Additional module* coming are a STATISTICS INTERFACE, 
CHECKBOOK, MAILING LIST & DATA-ENTRY. 

REQUIRES 48K & ROM APPLESOFT * 35. 

* All Software above on Disk for APPLE DOS 3.2, convertible 
to 3.3. 



CONNECTICUT INFORMATION SYSTEMS CO. 
218 Huntington Road, Bridgeport, CT 06608 (203) 579-0472 
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Charles Schwaiz of Bethesda, 
Maryland, sent this note: 

I was very annoyed to discover that 
the assembly language program by 
Steve Emmett on pages 38-39 of your 
July, 1981 issue (38) has been cut off. I 



very much enjoy reading about well- 
tested assembly language programs in 
your magazine, but errors such as this 
one make the reading very difficult. 

We regret oui mistake. See Emmett's 
Msting below: 



08D1 8D1008 


STA BUFH1 




08D4 EE1208 


INC RWS 


rws to write Emmett Listing 


08D7 AD0D08 


LDA CTRK 




08DA 8D1708 


STA IBTRK 




08DD AD0E08 


LDA CSCT 




08E0 8D1808 


STA IBSECT 




08E3 AD1008 


HA BUFKt 




08E6 8D1C08 


STA IBBUFH 




08E9 AD1208 


Lift RWS 




08EC 8D1F08 


STA IBCMD 




08EF 60 


RTN RTS 




08F0 






08F0 A901 


END LDA #$01 


RESET TEMPORARY 


08F2 8D0F08 


STA CDIO 


STORAGE AND 


08F5 8D1108 


STA NTRK 


I0B TO 


08F8 8D1208 


STA RWS 


INITIAL 


08FB 8D1F08 


STA IBCMD 


CONDITIONS 


08FE A903 


LDA #$03 




0900 8D0D08 


STA CTRK 




0903 8D1708 


STA IBTRK 




0906 AD0C08 


LDA BUFAB 




0909 8D1008 


STA BUFHI 




090C 8D1C08 


STA IBBUFH 




090F A900 


LDA #$00 




0911 8D0E08 


STA CSCT 




0914 8D1808 


STA IBSECT 




0917 8D2008 


STA IBSTAT 




091A A90F 


LDA #$0F 


SET END FLAG 


091C 8D2808 


STA FLAG 




091F 60 


RTS 
END 





John Maitin of Cleveland C1P by 

Heights, Ohio, called to tell us of an (38:68). 

omission we made from listing 1 of follows: 
Monobyte Checksum Dumper for 



Peter Bioeis 
The zest of 



in MICRO 
the listing 





Broers 


Listing 


1EDF 20E71E 


M3N0UT JSR HEXOUT 


rSUBROUTLNE TO DUMP A BYTE AS 


1EE2 A90D 


LDA #$0D 


;2 HEX DIGITS + CR, I.E. 


1EE4 4CB1FC 


JMP SAVBYT 


.•"MONITOR LOADABLE FORMAT" 


1EE7 


; 




1EE7 48 


HEXOUT PHA 


;SUBROUTINE TO PRINT (AND SAVE) BYTE 


1EE8 4A 


LSR 


;AS TWO HEX DIGITS 


1EE9 4A 


LSR 




1EEA 4A 


LSR 




1EEB 4A 


LSR 




1EEC 20F01E 


JSR DIGOUT 




1EEF 68 


PIA 




1EF0 


1 




1EF0 290F 


DIGOUT AND #$0F 


;SUBROUTINE TO PRINT (AND SAVE) 


1EF2 0930 


ORA #$30 


;A HEX DIGIT 


1EF4 C93A 


CMP #$3A 




1EF6 9002 


BCC *+4 




1EF8 6906 


ADC #$06 




1EFA 4CEEFF 


JMP BYTOUT 

END 





Warren Ward of Alberta, Canada, 
sentanother update to the Superboard 
article. 

For C1P and Superboard owners 
who want to use Edward H. Carlson's 
mini-assembler (MICRO, March 1981), 
here are a few line changes that suit his 
program to the smaller screen format: 



1 FOR X = to 25:PRINT:NEXT 
X:GOTO 1990 

20 FOR Z = 2 TO LEN(C$) : POKE 
N + Z, ASC(MID$(C$,Z,1)): 
NEXT:RETURN 

99 C$ = "No":N = Q + 1 :GOSUB 20: 

100 PRINT:PRINT AD;:INPUT C$: 
PRINT" > ":L$ = LEFT$(C$,3): 
L = LEN(C$) 

106 IF L$="ASC"THEN M=ASC 

(C$):Z= 1:GOSUB 2: GOTO 100 

1995 = 54084 

4050 N = N + M*L:L = L/16:NEXT:C$ = 
STR$(N):N=Q:GOSUB20: 
GOTO 100 



Line 1 is cosmetic — it scrolls the 
screen for a clean start. Line 1995 
relocates assembler comments into the 
C1P video memory, and changes the 
other lines to reposition the comments 
so they'll all fit on the screen. 



It's impossible to squeeze a full 
comment sequence legibly into the 
same 24-character line as the command 
input, so the third PRINT statement in 
100 starts a new line, preceded by a 
"greater-than" sign, beneath the ad- 
dress line. The first PRINT in 100 puts 
a space between each pair of lines for 
greater readability: to fit more informa- 
tion on the screen, leave it out. 



The display resulting from these 
changes is almost as easy to read as the 
original. Users will still have to keep a 
notebook handy, though, if they want to 
save the assembler's translation before 
it disappears off the top of the screen. 
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Cliff Harris of Anaheim, California, 
wrote about his update: 

I was intrigued by Edward Carlson's 
6502 Assembler in BASIC in the 
March, 1981 issue of MICRO. I thought 
if he could adopt the program from PET 
BASIC to OSI, then I could transform it 
into something my Apple could under- 
stand. See listing 1. 

Listing 1 

1 HOME: GOTO 1990 
99 C$="NO": N = Q+18:GOSUB20 

100 PRINT AD;: INPUT C$: L$ = 

LEFTS (C$,3): L = LEN(C$): Q = 
Q + 128: IF Q > 2000 THEN Q 
= Q - 984: IF PEEK (37) > 20 
THEN Q = 1888 
106 IF L$ = "ASC" then M = ASC 
(C$): Z = 18: GOSUB 2: GOTO 
100 
221 II = OP + 8 * (CA = 1) 
340 N = N - AD - 2: IF N < 

- 128 OR N > 127 THEN PRINT 
"CAN'T BRANCH "; N; " -- TOO 
FAR": Q = Q + 128 
1992 DEF FN H(D) = D + 48 - 57 * 

(D> 9) 
1995 Q = 912 

2029 Delete this line 

2030 AD = 768: GOTO 100 
4050 N = N + M*L:L = L/16: 

NEXT: C$ = STR$ (N): N = Q 
+ 18: GOSUB 20: GOTO 100 

Line 1 cleans up all the garbage on 
the screen and sets up the screen for- 
mat. This is necessary since the hex ad- 
dresses and commands are POKEd 
directly into the screen memory. 

Lines 99, 106, and 4050 move the 
output from the assembler to result in a 
format that will fit on the Apple screen. 

In line 100, the changes are required 
because of the way the screen locations 
are arranged in the Apple. Adding 128 
to a screen location moves it down one 
line, unless you're on the 8th or 16th 
line. Then you must subtract 984 to 
move down one line. The Q = 1888 
sets the screen into a scrolling mode 
once you reach the bottom of the screen. 

Line 221 required a change in sign. 
The minus was changed to a plus. In 
line 34 I added "-TOO FAR" here to 
make the message more meaningful. 
The Q = Q + 128 moves the line posi- 
tion down one so that your next pro- 
gram line won't be printed in the mid- 
dle of the "CAN'T BRANCH..." 
message. 



In line 1992 I changed the 7 to 57 to 
get this line to work with the Apple. A 
side effect of this is that the hex por- 
tions of the program will be printed in 
the inverse mode. If you want to take 
the time to massage this function, you 
can get a display in the normal mode, 
or even flashing, if you're so inclined. I 
left it this way to minimize the number 
of changes in the program. 

In line 1995 the number sets up the 
screen location where the output from 
the assembler will be printed on the 
screen. When 128 is added by line 100, 
you will be on the top line of the screen 
16 spaces from the left (912 + 128 = 
1040, which equals 1024 + 16). 

Line 2029 can be deleted, as it 
seems to be left over from a decimal-to- 
hex conversion routine which is no 
longer part of the program. 

In line 2030, AD = 768 sets the 
starting address of your program to 
$0300. You have only 255 bytes 
available before you run into the screen 
memory at $0400. If your programs are 
going to be longer than 255 bytes, 
change AD to 8192 ($2000), or 
whatever address suits your needs, to 
get into an area of memory with no 
conflicts. 

If you want to add a "user's 
manual" to the top three lines of the 
screen, change line 1995, and add lines 
1996 through 1999 (listing 2). 



Listing 2 

Change the following lines to add a, 
"menu:" / 

1995 Q = 1296: POKE 34,0: HOME 

1996 INVERSE: PRINT "ADD":: 
NORMAL: PRINT "NEW 
ADDRESS";: INVERSE: PRINT 
"CON";: NORMAL: PRINT 
"STORE CONSTANT" 

1997 INVERSE: PRINT "DIS";: 
NORMAL: PRINT "DISPLAY 
MEMORY";: INVERSE: PRINT 
"ASC";: NORMAL: PRINT "ASCII 
EQUIVALENT" 

1998 INVERSE: PRINT "HEX";: 
NORMAL: PRINT "CONVERT 
FOUR DIGIT HEX TO DECIMAL" 

1999 POKE 34,3 

The POKEs set the text window so 
that you can clear the screen (line 1995) 
and so that you won't lose your 
mnemonics when you get to the bot- 
tom of the screen (line 1999). 



Eric R. Bean of South Bend, Indiana, 
pointed out this omission: 

My letter to the editor in July, 1981 
on page 19, mentioned a figure 1, 
which was not printed. Here is another 
copy of the clock oscillator fix for the 
early KIM-1 uP board (see figure 1). 



fc 



10 PF 
(ADD) 




U16 U16 

13 rv 12 11 k 1 ° 



^ 



1 



+ 5 



"S" D1 
(ADD) 



& 



■J& 



jfc 



330K Q ( 
(ADD) | 



D2 
(ADD) 



(ADDf^t 



\yFT XTAL FROM BOARD 
(ONE LEAD) 



Xf\ 



Figure 1: Conversion of early KIM-1 XTAL oscillator to later production 
circuit to insure self starting. 
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seRsafcioRal 
software 



creative 

GOiRpating 

software 



Space Games-I 

Cassette CS-4001 $11.95 4 programs Requires 16K Apple II or Apple ll Plus 




Saucer Invasion. Fire missies to destroy Rocket Pilot. Maneuver your spaceship over 
the invaders who fly at different speeds the mountain using horizontal and vertical 
and altitudes Ihrusters. 




Star Wars. Shoot down as many TIE fighters Dynamic Bouncer. A colorful wer-changing 
as possible in 90 seconds graphics demonstration 



Strategy Games 

Cassette CS-4003S11 95 4 Programs Requires 16K Apple II or Apple II Plus 





Blockade. Build a wall to trap your opponent. UFO. Use lasers, warheads or guns lo des- 
bui don't hit anything troy an enemy spacecraft 





Skunk. A 2-player strategy game played Genius. A fast-moving trivia quiz with scores 
with dice, skill and luck. of questions 



Sports Games- 1 

Cassette CS-4002 $11 95 4 programs Requires I6K Apple II or Apple It Plus 



Brain Games 

Cassette CS-4004 $11 95 7 programs Requires 16K Apple II or Apple II Plus 










1 
















2 






3 




C 




H 




E 




D 




R 










Baseball; A 2-p!ayer game with pitching Breakout. Four skill levels and improved 
batting fielding, stealing and double scoring make this the best breakout ever 
plays 



Dodgem. Be the first to move all your pieces Nuclear Reaction A game ol skill, last 
across the board in this intriguing strategy decisionsand quick reversals ol position 
game ^ _^^ .^^^a^^^^^m^^ 



»~i— •*•«»,--- 




f R 


T 


V 1 


F 


G 


H 


U 


B 


N 


^m w 



&. 









■Si 



Torpedo Alley. Sink as many warships as Darts. Use game paddles to control the 
possible »n 2 minutes. throw of 6 dans 



Parrot. A Simon-type game wiin letters ana Midpoints and Lines. Two colorful graphics 
tones Dueling digits is a version with num- demonstrations Tones lets you make music 
bers and sound effects 



1 



Space & Sports Games Strategy & Brain Games 



Order Today 



DiskCS-4501. $24 95 

Requires 32K Apple II or Apple II Plus 

This disk contains all eight games Iron 
cassettes CS-4001 and CS-4002 



)' *OOlC Cor"ou!n> I 



DiskCS-4502 $24 95 

Requires 32K Apple II or Apple II Plus 



This disk contains all 12 games and programs 
Irom cassettes CS-4003 and CS-4004 



To orderany of these software packages, 
send payment plus $2 00 postage and 
handling per order to Creative Computing. 
Morris Plains. NJ 07950 Attn: Clarice 

Visa. MasterCard and American Express 
orders may be called in toll-free 



Order today at no risk If you are not 
completely satisfied, your money will be 
promptly and courteously refunded 

Creative Computing Software 
Morris Plains NJ 07950 
Toll-free 800-631-81 12 

In NJ. 201-540-0445 



creative computing software 
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pet & apple ii users 
Tiny Pascal 

Plu» + 
GRAPHICS 




The TINY Pascal System turns your APPLE II micro into a 16-bit P-machine. You 
loo can learn the language that Is slated to become the successor to BASIC. TINY 
Pascal otters the following: 

' LINE EDITOR to create, modify and maintain source 

' COMPILER to produce P-code. the assembly langauage of the P-machlne 

' INTERPRETER to execute the compiled P-code (has TRACE) 

* Structured programmed constructs: CASEOFELSE, WHILE-DO, IF-THEN- 

ELSE, REPEAT-UNTIL. PORTO/DOWNTO-DO, BEQIN-END, MEM, CONST, 

VAR ARRAY 

Our new TINY Pascal PLUS * provides graphics and other builtin functions: 
GRAPHICS. PLOT, POINT. TEXT, INKEY, ABS AND SOR. The PET version sup- 
ports double density plotting on 40 column screen giving 80 x 50 plot positions. 
The APPLE II version supports LORES and for ROM APPLESOFT owners the 
HIRES graphics plus other features with: COLOR, HGRAPHICS, HCOLOR, 
HPLOT, PDL and TONE. For those who do not require graphics capabilities, you 
may still order our original Tiny Pascal package. 



VN1 Pascal PLUS. GRAPHICS VERSION- 
PET 32K NEW Roms cassette S55 

PET 32K NEW Roms diskette $50 

APPLE II 32K/48K w/OOS 3.2 or 3.3 toO 



TINY Pascal NON-GRAPHICS VERSIONS- 
PET 16K/32K NEW Roms cassette *40 

PET 16K/32K NEW Roms diskette S35 

APPLE II w/ROM Applesoft 32K w/DOS *35 

APPLE II w/RAM Applesolt 48K w/DOS $35 

USER'S Manual (refundable with software order) $10 

6502 Assembly Listing of INTERPRETER-graphics $25 

6502:Assembly Listing of INTERPRETER-non graphics. . $20 



naster charge 





FREE poiiage •" US and CANADA -:■■■■■■-. mat M 0t«oaid at t>r 

"UsTietw efifl •■piraiton data)). Miemc»« IMUMI •ncluOa «% •!•!• mim lai Oidau ic 

o*«<M nel THE SOURCE CL04M 

llMIIIIIHIl l ABA CUS SOFTWARE 

Il IIliTeTlll il P -°' B0X 7211 

lliillili ' Gran d Rapids, Michigan 49510 
l """""* 11 (616)241-5510 



THE ultimate in SPEED and 
language POWER for the APPLE H : ' 

THE INTEGER BASIC COMPILER 



SPEED IMPROVEMENT BY A FACTOR OF 10 TO 20 OVER 

Apple's BASIC interpreter - 15 to 30 over Applesoft! 

no language card necessary ! 

Optimize code for your speed/space requirements. 

Object code and run-time system are completely 
relocatable - use memory the hay you want to ! 
Many powerful BASIC language extensions: 

- Full string length of 32767 - no 255 limit ! 

- CHRS, GET and KEY functions. 

- Direct Hl-RES graphics support. 

- HOME, INVERT, NORMAL, FLASH, and more ! 
Many applications - existing integer programs 
can be easily converted to run on any apple ii ! 

Compiler requires: Apple II (or II plus with 
integer or language card), 18 k and dos 3.3, 

Supplied on 2 disks with complete documentation. 

Price: » 119.50 

Dealer Inquiries invited. 
(Calif, add 6.51 sales tax. Foreign add J5.00 air nil) 

GALFO SYSTEMS 6252 Cam i no Verde 
San Jose, CA 95119 

• Apple, Applesoft - Trademarks of Apple Computer Co. 



erendipity 

Hath Tools 
or your 

e IT 




CMTER-STAT" offers you a full range of interactive statistical 
analysis techniques, from averages and medians to binomial 
and poisson distributions, correlation coefficients and one- and 
two-way analysis of variance. $169. 

ADVANCED MATH ROUTINES is the mathematical tool kit 
for common, yet complex numerical problems. Routines include: 
linear regression, matrix operations, numerical calculus, 
differential equations and data set recall for iterative calculations. 
$169. 

Thoroughly tested, well documented and easy to master, each 
package includes a 30+ page self-teaching manual. 
Serendipily's complete line of software solutions for business, 
education and professional applications are available at your 
local Computerland or Apple dealer. 

For a free brochure, or to order direct contact Serendipity 
Systems. 225 Elmira Road. Ithaca. NY 14850. 
Phone 607-277-4889. Visa and MC accepted. 

'"Apple Computer 



SERENDIPITY SYSTEMS 
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Name: Hayes Stack 

Smartmodem 

System: Machine 

independent— RS-232 

compatible 
Hardware: Low Speed Modem 
Language: Program controlled in 

any language. 
Description: RS-232 compatible, 300 
baud data communications system for 
small computers. Features program 
control in any language switch select- 
able options, full or half duplex and 
LED status indicators. 
Price: $279.00 (suggested retail) 

Available: Contact address below 

for nearest retail dealer. 

Hayes Microcomputer 
Products, Inc. 

5835 A Peachtree 
Corners East 

Norcross, GA 30092 

(404) 449-8791 



Name: Model 2100 

Memory: Standard 2K buffer 
memory; 4K option 
Description: The Model 2100 is the 
European version of the Model 2101 
having a built-in CCITT interface. Like 
the Model 2101 it also features: 5x9 dot 
matrix characters with true upper/ 
lower case and true underscore/ 
overscore; standard 80/132 selectability 
and bidirectional 120 cps printing. 
Price: $1385 

Available: Computer Devices Inc. 
(early 4th Quarter; 60 
days ARO) 
25 North Avenue 
Burlington, MA 01803 
(Call: 1-800-225-1380) 



Name: W7AAY 4K RAM Board 

System: Synertek SYM-1 

Description: Double sided reflow 
solder plated printed circuit board 
mounts on SYM-1 over Synertek name 
and logo. Allows memory expansion up 
to 8K using 2114 RAMs. Full instruc- 
tions included. 

Price: $8.00 ea. plus SASE 

Available: John M. Blalock 

Blalock & Associates 
P.O. Box 39356 
Phoenix, AZ 85069 



Name: Atari I/O Package 

Description: The four ports on the front 
of the Atari computer connect directly 
to a PIA for use as output as well as 
input. Atari owners can build custom 
program controllers, interface to home 
control circuits, etc. The I/O package 
comes with 4 nine-pin connectors, 4 
twelve-inch lengths of nine conductor 
ribbon cable, and documentation. The 
documentation includes examples of 
home-built program controllers, how 
to access the ports through BASIC com- 
mands, shadow registers, or directly, 
and how to set-up and address the ports 
for output. 

Price : $ 1 8 . 00 order #H309 

Available: Mosaic Electronics 

P.O. Box 748 

Oregon City, OR 97045 



Name: 



System: 



Memory: 

Language: 

Hardware: 



Available: 



Universal Analog 
Interface Card with A/D, 
Clock and Memory 
Expansion 

AIM-65, also applicable 
to PET, SYM, KIM and 
other 6502 and 6800 
systems 
4K to 16K 
BASIC or Assembly 
AIM-65 or PET, SYM, 
KIM and other 6502 and 
6800 systems plus 
Columbus Instruments 
IB-902-AB Card 
Columbus Instruments 
International Corporation 
950 N. Hague Avenue 
Columbus, OH 43204 



Name: Flexi Plus 

System: Stand Alone or Apple, 

AIM, SYM, KIM 
Memory: Up to 56K RAM, ROM 

and EPROM 
Description: Multi-function board in- 
cludes floppy disk controller for 8" and 
5Yt" drives with IBM formats; IEEE- 
488 bus controller; RS-232 communi- 
cations interface; 20 mA current loop 
interface; parallel and serial I/O ports; 
cassette interface; up to 56K bytes 
ROM, RAM and EPROM; and a 6809 
microprocessor. May be used to expand 
existing 6502/6809 systems or as a 



complete single-board microcomputer. 
Price: $695 with all options 

and 4K memory 
Available: The COMPUTERIST, Inc. 

34 Chelmsford St. 

Chelmsford, MA 01824 

(617) 256-3649 



Name: Covox Model 1 Voice 

Controller 

Language: Human Voice Input 
Description: Tolerant of noise and 
distortion, a revolutionary self- 
contained speech recognition processor 
accurately identifies voicing existence, 
voice fundamental pitch, voicing dura- 
tion, and vowel type in the manner of a 
human listener. In the stand-alone 
mode, this device will recognize 16 
separate commands. When interfaced 
to a processor, such as a 6502, the 
system becomes highly flexible and can 
be adapted for continuous speech 
recognition, speech bandwidth com- 
pression, speech synthesis, and aids for 
the handicapped. 
Price: $389.00 

Available: Covox Company 
P.O. Box 2342 
Santa Maria, CA 93455 
(805) 937-9545 or 
928-4818 



Name: UDS-100 Series Memory 

I/O expansion boards for 
AIM 65 

Description: Two independent, baud 
rate selectable, asynchronous, RS-232-C 
channels and 20 independently program- 
mable parallel I/O lines. Memory in- 
cludes 4K bytes of 18-pin NMOS/ 
CMOS RAM and 6 24-pin sockets 
accepting 1, 2, 4, or 8K x 8 RAM, 
ROM, PROM or EPROM devices. Full 
on-board bus signal buffering is included. 
Memory IC's and battery backup optional 
Price: $259.00 basic assembly; 

$296.00 with battery 

back-up 
Available: Unique Data Systems, Inc. 

15041 Moran Street 

Westminster, CA 92683 

(714) 895-3455 
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Name: Microlab 

Memory: 2K bytes of user RAM 
Language: Assembly 
Description: Complete educational pack- 
age that includes hardware, software, 
and course materials for introducing 
microcomputers and performing labor- 
atory experiments. Analog-to-digital 
conversion, interface for oscilloscope 
graphics, eight applications programs. 
Games, counter/timer, function 
generator, transient recorder, cooling 
curve and other applications 
Price: $650 - $850 

Available: Cambridge Development 
Laboratory 
36 Pleasant Street 
Watertown, MA 02172 
(617) 926-0869 



Name: Microcomputer Control 

System (MCS) 
System: Rockwell International 

AIM 65 
Description: The MCS is based upon 
the AIM 65 and is a complete micro- 
computer control system. It features 
three additional interface boards and 
firmware for real-time recording and 
controlling of external devices such as 
switches, solenoids, lights and alarms. 
Each MCS contains 16 input and 16 
output channels that are rated at 28 
VDC (at 3 Amps) and are completely 
optically isolated and noise suppressed. 
Efficient recording and controlling of 
external devices is accomplished using 
BASIC and interrupt-driven firmware 
package. This firmware adds 36 real- 
time commands to BASIC and allows 
"foreground" and "background" pro- 
gramming. While the MCS was 



specifically designed for the behavioral 
research psychologist it can also be 
used in other applications such as 
industrial control, alarm and en- 
vironmental systems. 
Available: Micro Interfaces, Inc. 
P.O. Box 14520 
Minneapolis, MN 55414 



Name: CHIEFTAIN™ 98W10 

Memory: 32K RAM (expandable) 
Language: BASIC 09; Random File 

BASIC; Pascal Compiler; 

Cobol 
Description: Smoke Signal, manufac- 
turers of computer systems based on 
the 6800/6809 processors, has in- 
troduced the latest addition to the 
CHIEFTAIN™ Series of computer 
systems. Designated the CHIEF- 
TAIN™ 98W10, this newest addition 
to the higher end of Smoke Signal 
Broadcasting's business computer line 
houses a 10 megabyte 8-inch Win- 
chester Disk Drive. The new system is 
configured around the state-of-the art 
6809 microprocessor allowing pro- 
grams to run at twice the speed of any 
other similar system. The wide range of 
programs available for the CHIEF- 
TAN™ 98W10 include OS-9 Level I 
and Level II multi-user, multi-tasking 
operating system. A standard CHIEF- 
TAIN™ 98W10 incorporates 32K of 
RAM — expandable up to 1 megabyte 
for specific requirements such as OS-9 
Level D. The CHIEFTAIN™ 98W10 
supports an 8-inch floppy disk drive for 
1 megabyte of back-up storage. A 20 
megabyte tape streamer option is also 
available. Dealer inquiries invited, dis- 
counts available. 
Price: $8695.00 base 



Available: Smoke Signal Broadcasting 
31336 Via Colinas 
Westlake Village, CA 
91362 



Name: Terrapin- Apple Smart 

Interface 

Description: Terrapin, Inc. announces 
a smart Terrapin-Apple Interface for its 
robot, the Turtle. Now any Apple 
owner can be one of the first persons to 
own a robot. The interface enables the 
user to conveniently control the Turtle 
from a high level language (BASIC, 
Pascal, Logo, etc.) via simple I/O 
statements. The interface includes a 
parallel port with software in ROM and 
a power supply. 
Price: $199.95 

Available: Terrapin, Inc. 

678 Massachusetts Ave. 

Cambridge, MA 02139 



The Hardware Catalog announcements 
are run free of charge, but are limited to 
only one per company, each month. 

If you have hardware you 'd like to 
announce to MICRO'S readers, send for 
an application form. 

Hardware Catalog 
34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 
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SUPER DRAW & WRITE Fonts, drawing, and useful 
utilities. 1 9.95 

SUPER SHAPE DRAW & ANIMATE The best system 
yet, it works. . . create and/or animate shape tables like 
a dream. 39.95 

THE CREATIVITY TOOL BOX Draw, write poetry, 
music. Includes Action Sounds, Hi-Res Scrolling, 
routines, shape tables and shape view program, 
utilities, animation demo, and fonts. 3 diskfuls, 88 page 
manual. 44.95 

BLOCK SHAPES FOR APPLESOFT OR ASSEMBLY 

There is no package available today that gives com- 
puter customers what they want in the area of graphics. 
The crying need here, according to our customers, is 
for a learning package that quits ignoring the one sub- 
ject that everyone seems to be trying to keep a deep 
assembly & machine language graphics! 
APPLESOFT OR 



ASSEMBLY package is chock full of programs to create 
and animate all types of shapes, such as vector shapes, 
block-shapes, HPLOT-shapes, text file shapes, data ar- 
ray shapes, etc. Included in BLOCK SHAPES FOR AP- 
PLESOFT OR ASSEMBLY are shape examining, shape 
editing, shape drawing, music tone routines, violin 
sounds, noise creation, assembly language sounds, 
SUPERFONT and font using, and a Y TABLE for either 
page of hi-res that allows extra speed in machine 
language programs since you avoid the HPOSN 
subroutine. Plus colorful routines. You may never need 
to buy another graphics package again... because you'll 
finally have a handle on what it's all about!!!! BLOCK 
SHAPES FOR APPLESOFT OR ASSEMBLY available 
this fall (1981). 4 disks with over 200 pages of 
documentation. Tentative price: 125.00 

Apple II 48K Applesoft ROM* 

"Apple Is a trademark ol Apple Computer. Inc. 



^^_J for a learning package that quits ignoring the one sub- documentation. Tentative price: 125.00 
ject that everyone seems to be trying to keep a deep A |e „ 48K App | e80ft R0M . 
dark secret; assembly & machine language graphics! -Apple is a trademark oi Apple computer, inc. 
^^ The BLOCK SHAPES FOR_ APPLESOFJ_OR ^_^_^^^ 

L-GflftDE CfttfiTIONS 



MICRO - The 6502/6809 Journal 



No. 40 -September 1981 



» 



Three minutes to find that "just right" property. 

Search through up to 3600 property listings with Real-Soft 
programs for Real Estate Agencies. 



GOLDEN ACREAGE REAi 
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Apple II is a Irademark of Apple Inc. 



No need to flip through endless pages of listings to 
find that "just right" property. Simply have your 
client specify the price range, number of bed- 
rooms, preferred geographical location, accept- 
able house styles and up to 12 additional listing 
features. REAL-SOFT programs will find the right 
properties quickly and impressively giving you 
more time to view the selected properties and 
close the sale! 



REAL-SOFT is an integrated set of computer pro- 
grams designed specifically for real estate agency 
use. All routines are fully customizable to meet the 
requirements of virtually any agencies. Up to 10 
different house styles, 12 different listing features 
and 16 different areas. Very easy to learn — in- 
cluded is a complete set of practice data to experi- 
ment with. Requires 48K Apple II, 2 disk drives and 
monitor. Printer is optional. 



If printer is used a printout of selected properties 
can be output in only a few minutes for your client 
to view and discuss in detail. 



Other useful routines in this powerful set of pro- 
grams include a Property Availability Report, full 
Mortgage Amortization Tables (American OR 
Canadian method), and a Mortgage Compari- 
son Analysis Report. Then use still another 
part of REAL-SOFT to estimate the replace- 
ment cost of any listing (using local factors), 
or to estimate the mortgage amount that 
your client can qualify for! 



Available al your local Apple dealer. 



REAL- SOFT Real estate software 

1 450 West Georgia Street, Vancouver, B.C. V6G 2T8 
Telephone (604) 669-2262 



SOFTWARE FOR OH X O SCIENTIFIC 

VIDEO EDITOR 
Video Editor i« * po»««r<ul *ul 1 scr»tn editor for disk-based 
OSI systems with the palled keyboard lexcept C1P> . Allows 

full curscw — control wi th insertion, deletion and duplication 
of source (or BASIC or OSI's Assembler /Edi tor. Unlike 

versions written in BASIC, this eachine-code editor is 
co-resident with BASIC (or the Assembler), autoloading into 
the highest three pages of RAM upon boot. Video Editor also 
provides single-keystroke control o* sound, screen format, 
color and background color. Eight-inch or «ini disk: 

•14.95. Specify amount of RAM. 

SOFT FRONT PANEL 
Soft Front Panel is a software single-stepper, slow-stepper 
and debugger-emulator that permits easy development of 6502 
machine code. SFP is a fantastic Monitor, simultaneously 
displaying all registers, flags, the stack and more. 

Address traps, opcode traps, traps on memory content and on 
port and stack activity are all supported. This is 'or disk 
systems with polled keyboard and color (bf... monitor ok). 
Uses sound and color capabilities of OSI C2/C*/C8 systems 
(not for CIP>. Eight-inch or mini disk *24.v5. Specify 

amount of RAM. Manual only, *4.95 (May be later credited 
toward software purchase). Six page brochure available free 
upon request. 

TERMINAL CONTROL PROGRAM 
OSI-TCP is a sophisticated Terminal Control Program for 
editing OS-65D3 files, and for uploading and downloading 

these files to other computers through the CPU board'* 

serial port on OSI C2, C4 and CB disk-based systems with 
polled keyboards. Thirteen editor commands allow full 

editing of files, including commands for sending any text 
out the terminal port and saving whatever text comes back. 

INDUTL utility included for converting between BASIC source 
and TCP file text. Eight-inch or mini disk »39.95. Manual 

only, *2.95. 

OSI-FORTH 2.0 / FIG-FORTH 1.1 
OSI-FORTH 2.0 is a full implementation of the FORTH Interest 
Group FORTH, for disk-based OSI systems (CI ,C2,C3,C4,CB) . 
Running under 0S&3D3, it includes a resident text editor and 
&S02 assembler. Over one hundred pages of documentation and 
a handy reference card arm provided. Requires 24K (20K C1P) . 
Eight-inch or mini disk 479. 95. Manual only, »9.95. 

-OSI-FORTH Letters" software support newsletter 44.0O/year. 

All prices postpaid. Florida residents add 4X tax. Dealer 

inquiries arm invited. Allow 30 days for delivery. 



WRITE FOR FREE CATALOG 
OF SOFTWARE AND HARDWARE 
FOR OHIO SCIENTIFIC !! 



* 



Technical Products Company 
P.O. Box 12993 Univ. Station 
Gainesville, Florida 32&04 



Rat Rate 

DISK DRIVE OVERHAUL 



One Week Turnaround Typical 

Complete Service on Floppy Disk Drives. 

FLAT RATES 

8" Double Sided Drive S170.00" 

8" Single Sided Drive s l 50.00* 

5'/4" M.P.I. Drive Sl 00.00* 

'Broken. Bent, or Damaged Parts Extra. 

You'll Be Notified of 

1 . The date we received your drive. 

2. Any delays and approximate time of completion. 

3. Date Drive was shipped from our plant 

4. Repairs performed on your Drive. 

5. Parts used (* and description). 

6. Any helpful hints for more reliable performance. 

90 Day Warranty. 
Ship Your Drive Today. 

Write or call for further details. 
PHONE (417) 485-2501 

FESSENDEN COMPUTER SERVICE 

1 1 6 N. 3RD STREET OZARK, MO 65721 




pet * apple ii users 
Tiny Pascal 

Plun- 
GRAPHICS 




The TINY Pascal System turns your APPLE II micro Into a 16-blt P-machlne. You 
too can team the language that Is slated to become the successor to BASIC. TINY 
Pascal otters the following: 

* LINE EDITOR to create, modify and maintain aource 

■ COMPILER to produce P-code, the assembly langauage ol the P-mechlne 

• INTERPRETER to execute the compiled P-code (has TRACE) 

' Structured programmed constructs: CASE-OFELSE, WHILE-DO, IF-THEN- 
ELSE, REPEAT-UNTIL. FOR-TO/DOWNTO-00. BEGINEND. MEM, CONST, 
VAR ARRAY 

Our new TINY Pascal PLUS-* provides graphics and other built in functions: 
GRAPHICS, PLOT. POINT, TEXT, INKEY, ABS AND SQR. The PET version sup- 
ports double density plotting on 40 column screen giving 80 x 50 plot positions. 
The APPLE II version supports LORES and tor ROM APPLESOFT owners the 
HIRES graphics plus other features with: COLOR, HGRAPHICS, HCOLOR, 
HPLOT. PDL and TONE. For those who do not require graphics capabilities, you 
may still order our original Tiny Pascal package. 



TINY Pascal PLUS* GRAPHICS VERSION- 
PET 32K NEW Roms cassette «5 

PET 32K NEW Roms diskette *50 

APPLE II 32K/48K w/DOS 3.2 or 3.3 $50 



TINY Pascal NON-GRAPHICS VERSIONS- 
PET 16K732K NEW Roms cassette $40 

PET 16CJ32K NEW Roms diskette $35 

APPLE II w/ROM Applesoft 32K wKXJS $35 

APPLE II w/RAM Applesoft 48K w/DOS $35 

USER'S Manual (refundable with software order) $10 

6502 Assembly Ustlng of INTERPRETER-graphics $25 

6502Assembly Listing of INTERPRETER-non graphics. . $20 

FREE poauga in US and CANADA OnMni may M praoMd of t» tanaca anck-M earn 
numb, and aiouaiion data) Uicmqk" «aa~3ania mciuda a*, atata aaMa lai Ord.a ae 
caofad ,ta THE SOURCE CLOSS? 





Ptohi 






ABACUS SOFTWARE 

P.O. Box 7211 

Grand Rapids, Michigan 49510 

(616)241-5510 



.Decision 

Oystems 



Decieion Systems 

P.O. Box 13006 
Denton. TX 76203 



SOFTWARE FOR THE APPLE II- 

ISAM OS is an integrated set of Applesoft routines that gives indexed file capabilities 
10 your BASIC programs. Retrieve by key. partial key or sequentially Space Irom 
deleted records is automatically reused Capabilities and performance thai match 
products costing twice as much. 
$50 Disk. Applesoft. 

PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF ..ELSE . CASE. SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a traction of 
Ihe cost of PASCAL 
S35. Disk, Applesoft I48K. ROM or Language Cardl 

DSA-DS is a disassembler lor 6502 code Now you can easily disassemble any 
machine language program tor the Apple and use the dis assembled code directly as 
input to your assembler Dis assembles instructions and data. Produces code com 
patible with the S C Assembler (version 4 01. Apples Toolkit assembler and others. 
$25 Disk, Applesoft I32K. ROM or Language Cardl. 

FORM-DS is a complete system (or the definition of input and output troms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 
S2S Disk. Applesoft (32K. ROM or Language Card! 

UTILDS is a sel of routines lor use with Applesoft lo (ormat numeric output, selec 
lively clear variables (Applesoft's CLEAR gets eveiythingl. improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 
S25 Disk. Applesoft 

SPEED OS is a routine to modify the statement linkage in an Applesoli piogram to 
speed its execution improvements ol 5 20% are common. As a bonus. SPEED-OS 
includes machine language routines to speed string handling and reduce the need foi 
garbage clean up. Author' Lee Meador 
S15 Disk. Applesott I32K. ROM or Language Cardl 



I Add $4.00 for Foreign Meill 
'Apple II is a regisrered trademark of the Apple Computer Cu 
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Name: Enhanced Graphic 

Software for the Epson 
MX-80 and MX- 100 

System: Apple II or Apple II + 

Memory: 48K 
Language: 6502 Assembly 
Hardware: Disk drive, Epson MX-80 

or MX- 100 printer 
Description: Graphic dump which 
allows the user to get hard copy 
graphics of anything that can be loaded 
on the high-resolution pages of the 
Apple with one-keystroke commands. 
Easy to use, versatile, well supported as 
are all graphic dumps from Computer 
Station. (The Epson MX-80/MS-100 
now added to our line.] 
Price: $44.95 includes software, 

documentation, practice 

pictures/plots 
Author: David K. Hudson 

Available: Computer Station 

11610 Page Service Dr. 

St. Louis, MO 63141 

(314) 432-7019 



Name: Number Cruncher Disk 

System: OSI Challenger (C2 and 

C3 series) 
Memory: 48K 

Language: BASIC under OS 65D 
Hardware: Disk drive, CRT, 

optional printer 
Description: A statistical analysis 
package, including a data base manage- 
ment system with facilities for conven- 
ient handling of data series. Contains 
commands for producing descriptive 
statistics, plus exploratory data 
analysis graphics and regression. 
Price: $195.00 for 8" disk and 

documentation postpaid. 

$20.00 for manual only. 

Free flier available on 

request. 
Author: Mike Anderson 

Available: Responsive Computer 
Technology, Inc. 

P.O. Box 719 

Silver Spring, Maryland 

20901 



Name: The Executive 

Secretary™ 

System: Apple II 

Memory: 48K 

Language: Applesoft in ROM or 

Language System 
Hardware: Apple n, one or two disk 
drives, lower case 
adapter or 80-column 
video board, shift key 
modification, printer 
Description: This is the ultimate word 
processor for the Apple n computer. 
Works with 40- or 80-column screens 
interchangeably, shows lower case, has 
real shift key. Other features: works at 
professional typing speeds; versatile 
page numbering and header printing on 
each page; file merge and unmerge; 
block operations — move, transfer, and 
delete; automatic insertion of full 
phrases for user-defined abbreviation 
(unlimited number); automatic 
envelope address; built-in card file 
system; interfaces with Data Fac- 
tory™, On-Line Database, Information 
Master, and Visicalc™ files; file chain- 
ing and nesting; "if" and relational 
commands to allow conditional print- 
ing of information based on the con- 
tents of a database; insertion of data 
directly from database files (in lower 
case, if desired); permits keyboard in- 
put during print time; multi-level 
outline indentation; right and left 
justified tab stops; dynamic text refor- 
matting; immediate mode configura- 
tion for display screen, number of disk 
drives, and printer (including Cen- 
tronics 737 and IBM Selectric); inter- 
faces with CCS clock board for time 
stamping of documents; embedded or 
external printer commands; character/ 
word/line insert/replace/delete; selec- 
tive or global search and replace; built- 
in interface to D.C. Hayes Micro- 
modem II™; menu-driven operation; 
easel-bound, indexed manual; lesson- 
type instructions. 
Price: $250.00 

Available: Aurora Systems, Inc. 

2040 E. Washington Ave. 
Madison, WI 53704 
(608) 249-5875 



Name: Business Plus 

System: Apple and Atari/800 

Memory: 48K 
Language: Applesoft & Binary 
(Apple) 

BASIC & Binary (Atari) 
Hardware: Any 80-column printer 
Description: An all-in-one billing 
system. Handles invoices, statements, 
credit memos, purchase orders, 
payables, writes checks, account aging 
reports (30, 60, 90 and over 90 days), 
bar graphs of sales, income and ex- 
penses, mailing list with search, sales 
register and a whole lot more. 
Everything you need for daily business 
operations. 

Price: $299.00 (or $25.00 for 

demo - credited towards 
purchase) includes 2 
disks and documentation 
Author: Advanced Data Systems 

Available: Advanced Data Systems 
7468 Maple Avenue 
St. Louis, MO 63143 



Name: Micro-Telegram 

System: Apple II or Apple II Plus 

Language: Integer BASIC or 

Applesoft 
Hardware: Apple II or Apple II Plus 
Description: Allows Apple owners to 
access Western Union Services 
worldwide, send and receive TWX™, 
Telex™ and international cables, and 
send mailgrams. Apple owners can also 
access continuously updated reports on 
news, stock, foreign exchange, gold, 
futures, sports reports and ski condi- 
tions through Infomaster® , the 
Western Union Data Base. 
Price: $250.00 - suggested 

retail, FOB Boston, 

includes mini-floppy 

diskette and 

documentation 
Author: Microcom, Inc. 

Available: Microcom, Inc. 

89 State St. 

Boston, Massachusetts 

02110 
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Name: Super-Text D 

System: Apple II word processing 

program 
Memory: 48K 
Language: Assembly 
Hardware: Apple II or Apple II + 
Description: With Super-Text the 
basics of text editing are learned quick- 
ly, yet its advanced features will meet 
the user's expanding word processing 
requirements into the future. Add the 
Form Letter Module and Address Book 
Mailing List for the ultimate in profes- 
sional or personal use word processing. 
Price: $150.00 includes 

documentation, 
an unlimited time 
replacement policy, and 
dual disk 
Author: Ed Zaron 

Available: MUSE Software 
330 N. Charles 
Baltimore, MD 21201 
(301] 659-7212 



Name: Eureka™ Learning 

System - 

System: Apple II or Apple II + 

Memory: 32K Cassette, 

48K Diskette 
Language: Applesoft with some 

machine language 
Hardware: Cassette or diskette 

(DOS 3.3) 
Description: An interactive, menu 
driven program that helps teachers 
create courseware. No programming is 
necessary. Any subject may be taught 
using symbols and line drawings (Hi- 
Res shapes). Courses are presented to 
students in three modes, with optional 
sound effects. May be used with any 
level of student, pre-school through 
adult. The material and its style is up 
to the teacher, not the computer. 
Price: $995.00 for software 

license 
Author: Eiconics, Inc. 

Available: Eiconics, Inc. 

200 Cruz Alta 

Taos, New Mexico 87571 



Name: Sentence Diagramming 

System: Apple II 

Memory: 48K 

Language: Applesoft 

Hardware: Apple n, Disk II [one or 

two drives) 
Description: Teaches sentence dia- 
gramming, parts of speech, and usage, 
for individual student sessions. It is 
also an excellent tool for teachers to 
use for instruction in one, two, or all of 
these areas. Students may use the 



teacher-formatted disk for individual 
practice at 3 levels of difficulty. Each 
level has 20 separate sentences. Op- 
tions include creating student record 
files, monitoring progress, reading 
records, omitting diagramming sec- 
tions, etc. This is the best grammar 
disk available today. Grades 6-12. 
Copies: Many 

Price: $19.95 includes disk, 

manual, demo sheet 
Available: Avant-Garde Creations 
P.O. Box 30161 MCC 
Eugene, OR 97403 

Name: Extended SYM-BASIC 

System: SYM-1 

Memory: 16K 

Language: 5'AK machine language 

program 
Hardware: Serial terminal and 

Synertek BASIC ROMs 
Description: Extended SYM-BASIC 
adds over 30 new commands/functions 
to standard SYM-BASIC. Features in- 
clude: a unique input line editor; 
pagination of program listings; hex 
arithmetic and arguments; built-in 
printer control; auto line number 
prompting; realtime clock; powerful 
trace/debug command; trigonometric 
patch; ultra renumber; powerful ex- 
ecute command; range delete com- 
mand; and many others. List of com- 
mands follows: $, @HH, @MM, @SS, 
APPEND, AUTO, CA, CALL, CR, 
CHAIN, DEL, DR, EDIT, EXEC, GET, 
GOTO, IN = , LOADP, LOAD NUM, 
OUT = , PAGE, PRINTOFF, PRINT- 
ON, PRINTUSING, SAVEP, SAVEV, 
SAVEB, STIME, TRACE, VERIFY. 
Copies: 50 copies (Note: over 200 

copies of 8K version 

sold.) 
Price: $85.00 U.S., $95.00 

Canada, includes object 

on cassette and 90-page 

instruction manual 

complete with source 

listing 
Author: John W. Brown 

Available: Saturn Software Limited 

8146 116ASt. 

Delta, B.C., V4C 5Y9, 

Canada 



Name: A.3. Frequency Analysis 

System: PET 
Memory: 8K 
Language: BASIC 
Hardware: PET/CBM 
Description: Using harmonic analysis 
techniques, a frequency scan is made of 
a time series, such as stock prices, 
which discloses frequencies of signifi- 
cant amplitudes. A harmonic analysis 
is then made at chosen frequencies. In- 
cluded is a logical file input and modifi- 



cation to update and delete old data. 
Price: $15.00 for cassette and 

documentation 
Author: Claud E. Cleeton 

Available: 122-109th Ave., S.E. 

Bellevue, WA 98004 

Name: HSD Anova 

System: Apple II or Apple II Plus, 

DOS 3.2 
Memory: 48K 
Language: Applesoft 
Hardware: Optional printer with 

serial or parallel interface 
Description: HSD Anova is a powerful, 
flexible analysis of variance program 
suitable for scientific research and 
business analyses. This single program 
analyzes balanced designs of from one 
to eight independent variables. It can 
handle designs composed of between- 
subjects and/or within-subjects fac- 
tors. Design specification and data 
entry are simple. Data entry is from 
keyboard or disk, with data editing. 
Output is an Anova table on CRT or 
printer. 
Price: $74.95 includes disk, 

complete documentation, 

binder. 
Author: Stephen Madigan, Ph.D. 

Virginia Lawrence, Ph.D. 
Available: Human Systems 
Dynamics 

9249 Reseda Boulevard 

Suite 107C 

Northridge, California 

91324 

Name: FORTH-79 Standard 

System: Apple II, Apple 11 + 

Memory: 48K 

Language: Machine Language and 

FORTH-79 
Hardware: 1-14 disk drives (13 or 16 

sector-compatible) 
Description: FORTH-79 is a structured 
language suited for systems and appli- 
cations programming with advantages 
where execution speed is important 
(i.e., data acquisition, process control, 
animation, and video games) . Programs 
run faster than BASIC and are compact. 
The 32-bit integer arithmetic vocabu- 
lary is ideal for business applications 
and is also extensible. Package includes 
screen editor, macro-assembler and 
vocabularies for strings, double preci- 
sion integers and Lo-Res graphics. 
Price: $89.95 includes software 

and manual (including 

FORTH-79 and Fig- 

FORTH) 
Author: Martin Tracy and 

Philip Wasson 
Available: MicroMotion 

12077 Wilshire Blvd. #506 

Los Angeles, CA 90025 

(213) 821-4340 
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Name: S-FORTH 

System: OSI disk systems 
Memory: 20-96K 
Hardware: No extra hardware 

required 
Description: S-FORTH is a full imple- 
mentation of fig-FORTH including 
editor, a virtual memory disk sub- 
system, and compatibility with 
OS65D. All OS65D commands are still 
usable. You can exit from S-FORTH to 
OS65D and then return to S-FORTH. It 
is over 10 times faster than BASIC and 
is as fast as Pascal. The FORTH com- 
piler uses less memory than Pascal and 
allows any user with at least 20K to 
have an excellent FORTH system. 
Price: $34.95 for 5 Ya" or 8" 

disk (disk and source 
listing together are 
$49.95) 
Author: Digital Systems 

Available: Aurora Software 
Associates, 
P.O. Box 99553 
Cleveland, Ohio 44199 



Name: Dental Insurance Form 

Writer 

System: Apple II with firmware 

card or Apple II Plus 
Memory: 48K RAM 
Language: Applesoft, DOS 3.2, 3.3 
Hardware: Disk drive, 80-column 

printer 
Description: You can prepare Universal 
American Dental Association Insur- 
ance Claim forms on your Apple. Each 
form can be prepared, saved to disk, 
reloaded, edited and printed as many 
times as you desire. Dental Insurance 
Form Writer allows rapid billing and 
claim submittal with a minimum of ef- 
fort. A master form can be created for 
each family/patient and saved for later 
•use. This master can be loaded, treat- 
ments entered, printed and sent as a 
pre-authorization or actual statement. 
Over 100 families per diskette. 
Price: $100 includes manual 

Author: J. McFarland 

Available: Andent Inc. 

1000 North Ave. 

Waukegan, Illinois 60085 



Name: Pulsar II 

System: Apple II or Apple II Plus 

Memory: 48K 

Language: Machine 

Hardware: One disk drive, 13 or 16 

sector controller card 
Description: Two games — Pulsar II 
and Wormwall in a unique combina- 
tion. Each game has eight levels of play 



and score can be transferred between 
the two. The object of Pulsar II is to 
destroy the spinning shields around the 
Pulsar and destroy it. Wormwall places 
you in one of the strangest mazes ever 
created. The walls do not connect and 
openings occur only temporarily as col- 
lored lines cross. Little creatures chase 
you in each part of the maze. 
Price: $29.95 includes disk and 

documentation. 
Author: NASIR — Presented by 

Sirius Software, Inc. 
Available: Your local Apple dealer 

or software store. 



Name: The Dragon's Eye 

System: PET or Apple 
Memory: 32K (PET) and 48K 

(Apple) 
Language: PET BASIC, Applesoft 

BASIC 
Hardware: PET, Apple II 
Description: An overland fantasy game, 
where the player has 21 game days 
(approximately a half an hour playing 
time), to find the Dragon's Eye, a 
magical jewel hidden by an evil magi- 
cian. The player chooses one of 16 
characters, and gains a set of magical 
abilities. He also chooses among 13 
commands. When he combats the 
vicious monsters, animated graphics 
display the action between player and 
beast. 

Price: $24.95 

Author: Automated Simulations, 

Inc. 
Available: Automated Simulations, 
Inc. 
P.O. Box 4247 
Mountain View, 
California 94040 



Author: Mark Turmell 

Available: Your local computer 
software store 



Name: 

System: 

Memory: 

Language: 

Hardware: 



Sneakers 

Apple II or Apple II + 

48K 

Machine 

Disk Drive 



Description: Sneakers are little guys 
who appear to be friendly but will 
quickly stomp you out if you do not get 
them first. After the Sneakers come 
wave after wave of Cyclops, Saucers, 
Fangs, H-Wings, Meteors, Scrambles 
and Scrubs. The variety is incredible 
and the challenge unending. Sneakers 
is playable with keyboard or paddles. 
Price: $29.95 includes disk, 

documentation and a 

T-shirt transfer 



Name: 

System: 

Memory: 



Language: 
Hardware: 



Olympic Decathlon 

CP/M or TRS-80 
48K for Apple II or II + ; 
32K for disk drive 
TRS-80 Model 1; 16K for 
cassette TRS-80 Model 1 . 
Machine 

Apple Hor II + ; TRS-80 
Model 1, disk or cassette 
Description: Enjoy the excitement and 
skill of Olympic competition with this 
game which takes you through all 10 
events of the real Decathlon. Each 
event is presented with animated 
graphics that put you into the action. 
Eight and six players can compete 
respectively with the TRS-80 and Apple 
versions. Repeat feature lets you prac- 
tice any event as many times as you 
wish prior to beginning the actual com- 
petition. Your best times can be com- 
pared to actual recorded Olympic 
Decathlon times. 
Price: $29.95 includes 

instruction manual and 
514" disk (cassette for 
TRS-80 cassette version) 
Author: Tim Smith 

Available: Microsoft Consumer 
Products 
400- 108th Ave. NE 
Suite 200 
Bellevue, WA 98004 



Name: Cavern of the Dwarves 

System: SYM with BAS-1 or KIM 

8K BASIC at 2000 H 
Memory: 16K 
Language: BASIC 
Hardware: Terminal using standard 

serial I/O ports on SYM 

or KIM 
Description: An adventure game in 
which you wander a large cavern seek- 
ing treasure, fighting monsters, and 
trying to avoid getting killed by the 
many dwarves who inhabit the cavern. 
You communicate with the computer 
using one- and two- word commands. 
Price: $10.00 on cassette tape, 

ppd. in U.S. only 
Author: Lee Chapel 

Available: Lee Associates 

2349 Wiggins Ave. 

Springfield, IL 62704 
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Hot pursuit 
through space 
and the 
vortices 
of time! 




PRESENTS. 



Sinue PiOtfU 

The fallen Time Lord, who presumptuously calls himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
Tardus, and commissioned you to eliminate the evil "Master". Your resources 
include clones who will fight for you, the formidable CRASER weapons of the Tardus, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Traveling through hyperspace in search of the evil one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 

Based on Dr. Who of PBS fame. 
Apple Integer Basic, 
Disk, 48K . . . $29.95 




► 



TS€JHORDSID€ 

6 Soulh Si .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1 790 
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BASIC 

AWfACHKOMf 



TSE HARDSIDE HAS IT ALL 
IN ONE! 

How many times have you wished that there was a single source for v 
your personal computer needs? Well look no further, TSE- 
HARDSIDE, located in pleasant New Hampshire, has virtually every 
conceivable item for your micro. Whether you're shopping for your 
Apple, Pet, TRS-80™ or Atari, TSE-HARDSIDE has it all. We stock 
hardware, software, books, magazines and specialty items for all of 
the popular machines. So the next time you're out shopping for your 
system don't be surprised, be satisfied. Remember the name TSE- 
HARDSIDE as your choice for quality, service and reliability. 





TS€JHPIRDSID€ 

6 South St Miltord NH 03055 (6031673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 





X 
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Dr. William R. Dial 
438 Roslyn Avenue 
Akron, Ohio 44320 
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primary address decoder off-board, making it possible 

to add other I/O devices. 
Strasma, James, "PET String Flip," pg. 65-66. 
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Jenkins, Jerry, "Apple Program Conventions," pg. 6. 
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Brown, Thomas A., "Telephone Dialer," pg. 9-10. 

Hardware and software listing for an Apple telephone 

dialer. 
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A group of programs including Applesoft conversions. 
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A game written in BASIC for the KIM. 
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EDIT 6502 



T.M. LJK 




Pass Assembler, Disassembler, and Editor Single Load Program 

DOS 3.3., 40/80 Columns, for Apple II or Apple II Plus* 




A MUST FOR THE MACHINE LANGUAGE PROGRAMMER. Edit 6502* is a two pass Assem- 
bler. Disassembler and text editor lor the Apple computer. It is a single load program 
that only occupies 7K of memory. You can move freely between assembling and disas- 
sembling. Editing is both character and line orientated, the two pass disassemblies 
create editable source files. The program is so written so as to encompass combined 
disassemblies of 6502 Code. ASCII text, hex dafa and Sweel 16 code. Edit 6502 makes the 
user feel he has never left the environment of basic. II encompasses a large number of 
pseudo opcodes, allows linked assemblies, software slacking (single and multiple 
page) and complele control of printer (paganation and tab selling). User is free to 
move source, object and symbol table anywhere in memory. Requirements: 48K of 
RAM. and ONE DISK 0RIVE. Optional use of 80 column M&R board, or lower case availa- 
ble with Paymar Lower Case Generator. 

TAKE A LOOK AT JUST SOME OF THE EDITING COMMAND FEATURES. Insert al line ■ n Delete a character 
Insert a character Delete a line * n List line » nl. n2 to line t n3 Change line I nl to n2 "stringl" Search 
line » nl to n2 "stringl" 

UK Enterprises Inc. P.O. Box 10827 St. Louis, MO 63129 (314)846*124 

•Edit 6502 T.M. ol LJK Enl. Inc.. - 'Apple T.M. ol Apple Computer Inc. 



LOOK AT THESE KEY BOARD FUNCTIONS: Copy to the end ol line and 
exit Go to the beginning of the line: abort operation delete a 
character at cursor location go to end ol line: lind character 
atler cursor location, non destructive backspace insert a 
character al cursor location shift lock shift release: lorward 
copy delete line number prefix special print characters Com- 
plete cursor control. Dome and clear, right, lett down up. Scroll a 
line at a lime Never type i line number again. 

All (hit ind much much more — Send for FREE Information. 
Introductory Price $50.00. 
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A modification for the Applewriter software. 

Yob, Gregory, "Personal Electronic Transactions," 

pg. 154-160. 
Discussion of the PET Toolkit, BASIC 4.0, and PILOT 
language. 

Blank, George, "Outpost: Atari," pg. 168-171. 
Discussion of Atari graphics, listing for Decimal 
Dump, the PEEK function, etc. 

Carpenter, Chuck, "Apple-Cart," pg. 172-180. 
Discussion of programming languages for the Apple, in- 
cluding Mini PILOT; Mini-PILOT Interpreter, etc. 

1058. KB Microcomputing No. 50 (February, 1981) 
Baker, Robert W., "Tape-To-Disk Data File Copy," 

pg. 15. 
A basic program for the PET. 

Chamberlin, Hal, "Simulation of Musical Instruments," 
pg. 142-148. 

Part 2 of this series on music synthesis includes 

routines written for the KIM. 
Kammer, David W., "Autoloader Program for the C1P 
and Superboard II," pg. 158-160. 

Routines to load and save machine language programs 

on OSI systems. 

1059. Personal Computing 5, No. 2 (February, 1981) 

Miles, Kenneth, "Menu- Writer," pg. 38-42. 

Let Apple write a menu for your Applesoft or Integer 

BASIC programs. 
Karis, Robert, "Archimedes' Spiral," pg. 81-82. 

A versatile graphics Hi-Res program for the Apple. 

1060. CSRA Computer Club Newsletter (February, 1981) 

Morse, Ken, "Permanent (?) Comment," pg. 1. 

A program to convert Integer BASIC line numbers to 
65535 to make them more resistant to undesired deletion. 

Sikes, Randy, "DOS 3.3 Update," pg. 4. 
A simple fix for the new Apple DOS 3.3. 

1061. Softalk 1, No. 6 (February, 1981) 

Wagner, Roger, "Assembly Lines," pg. 26-29. 
Part 5 of the guide to assembly language covers branch 
instructions. 

1062. O.S.I. Users Independent Newsletter No. 8 
(February, 1981) 

Curley, Charles, "Implementing the NEC Spinwriter," 
pg. 1-8. 

Some notes for OSI owners who wish to use the 

Spinwriter. 

1063. Poke Apple 3, No. 1 (February, 1981) 

Averill, Bonnie Kaufman, "Elementary Programming: A 
Basic Budget," pg. 11-13. 

The first of a series of tutorial articles showing how to 

develop a budgeting program. 
Neff, Thomas M., "Apple Notes," pg. 14-15. 

Discussion of the use of Apple's Editor/Assembler, 

found in the DOS Toolkit. Also Neil Konzen's Program 

Line Editor and the INIT command. 
Garvey, Michael, "Storing and Reading an Array on 
Disk," pg. 16-17. 

A utility for the Apple. 
Greene, Amos, "Sex and the Single Drive (Disk 
Version)," pg. 18-19. 



An instructional article on the storage of data on the 
Apple Disk. 

1064. Apple-Dayton 2, No. 2 (February. 1981) 

Anon., "Program List Formatter," pg. 2. 
An EXEC File Operator for the Program List Formatter 
in the Winter Orchard magazine. 

1065. The Michigan Apple-Gram 3, No. 2 (February, 1981) 

Tuttleman, Roger, "Languages, Languages," pg. 1-4. 

An Apple/Pascal program to plot circles, etc. on the 

Hi-Res screen. 
Tuttleman, Roger, "Getting Started in Pascal," pg. 6-7. 

An instructional article with a BASIC Booter Routine in 

Apple/Pascal. 
Rivers, Jerry, "Principally Pascal," pg. 11-14. 

PPJNTIT, a program for Apple/Pascal designed to send 

all or part of a .TEXT file to either the console or to your 

printer. 
Deegan, W. Curt, "Hiding Amidst the DOS with 
PUMA," pg. 16-18. 

Protected user memory area for your Apple. 
Anon., "IAC Apnote: The Apple II Cassette Interface," 
pg. 19-21. 

A description of the structure and operation of the 

cassette interface. 
Anon., "IAC Apnote: The Preliminary Apple Pascal 
Guide to Interface Foreign Hardware," pg. 26-41. 

A detailed guide to interfacing in Apple Pascal systems. 

Sokal, Dan, "Pascal— PEEKs and POKEs," pg. 42-43. 

A program for the Apple/Pascal library. 
Anon., "IAC Apnote: Text Screen Mapping and Use," 
pg. 43-44. 

A good source of information on how to POKE 

characters on the Hi-Res screen. 

1066. The Seed 3, No. 2 (February, 1981) 

Anon., "Apple PI Conventions," pg. 4, 
A program to enter standard program labels into soft- 
ware items donated to club libraries, for the Apple. 
Breyfogle, Louis D. and Quinn, Jack D., "The 13/16 Sec- 
tor Problem: A Solution," pg. 8-9. 
Stadfeld, Paul, "Space Exploration," pg. 11. 
An instructional article on using Applesoft's SPC 
function. 

1067. Compute! 3, No. 2, Issue 9 (February, 1981) 

Lee, Arnie, "LED — A Line-Oriented Text Editor," 
pg. 16-20. 

A utility for the PET to maintain PASCAL source 

language statements. 
Baker, Robert W., "The Atari 825 Printer," pg. 24-28. 

Description and evaluation of a printer for the Atari 

systems. 
Butterfield, Jim, "Simulated PRINT USING," pg. 30-32. 

A program for 6502 micros. 
Albrecht, Bob and Firedrake, George, "The Mysterious 
and Unpredictable RND," pg. 34-40. 

Part 2 of several articles on the RND function, PET 
oriented. 

Wachtel, A., "Stat Lab," pg. 42. 

A statistical program for 6502 systems. 
Dejong, Marvin L., "A BCD to Floating-Point Binary 
Routine," pg. 46-52. 
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A routine for the AIM 65 micro. 
Lowell, J.R., "BASIC Math for Fun and Profit," 
pg. 54-59. 

An 8K elementary arithmetic program written for the 

16K PET with new ROMs. 
Esbensen, Tory, "PET Spelling Lessons Your Students 
Can Prepare," pg. 60-62. 

A program for the PET. 
Falkner, Keith, "List Apple Integer BASIC Programs One 
Page At A Time," pg. 64-66. 

A machine language utility for the Apple to assist in 

listing Integer programs. 

Gat, Erann, "The 25« Apple II Real Time Clock," 
pg. 68-73. 

An article on inexpensive hardware and software for an 

accurate clock for the Apple. 
Martell, Eric and Murdock, Chris, "Ticker Tape Atari 
Messages," pg. 74. 

A horizontal scrolling message routine for the Atari. 
Schreibman, Arthur, "Atari Colors and Sounds with Pad- 
dles," pg. 75. 

A short program for the Atari. 
Veludo, Henrique, "Atari Terminal," pg. 75. 

A short communications program allowing contact 

over the telephone with a remote computer system. 
Braannon, Charles, "Character Generation on the Atari," 
pg. 76-78. 

A tutorial on defining the character set of the Atari. 
Kingston, C, "Put a Printer on the Atari Ports," 
pg. 82-85. 

Drive a printer through the joystick ports. 
Boden, Gary, "Double-Density Graphing On the OSI 
C1P," pg. 86-87. 

A way to effectively increase the normal 24 x 24 format 

of the C1P to a 40 x40 format for graphing functions. 
Berger, Tom R., "A Small Operating System: OS65D — 
The Kernel," pg. 88-94. 

Part 2 of 3 with subroutine descriptions for OSI 

systems. 
Reid, Neal E., "Contour Plotting," pg. 97-102. 

How to produce graphs of functions of two variables 



using the PET and a 2023 friction feed printer. 
Young, R.D., "Relocate," pg. 103. 

Relocating or loading programs to portions of memory 

other than from the normal beginning of memory. 
Butterfield, Jim, "Mixing and Matching Commodore 
Disk Systems," pg. 104-108. 

A discussion and notes on PET/CBM disk systems. 
Spencer, Peter, "Memory Calendar," pg. 109-113. 

A program for the PET. 
Deal, Elizabeth, "Crash Prevention for the PET," 
pg. 114-116. 

Several reasons for crashes and how to avoid them. 
Butterfield, Jim, "Odds and Ends," pg. 118-119. 

Notes on PET/CBM files. 
Garst, John F., "Three PET Tricks," pg. 120. 

On-line REMarks; flashing cursor for GET; and pretty 

printing. 

Bruey, A. J., "Pascal on the PET," pg. 124-125. 

A discussion of this additional language for the PET. 

Land, Bruce, "A Terminal for 'KAOS' (KIM, AIM, OSI, 

SYM)," pg. 128-133. 

Hardware for small single board micros to make a sim- 
ple communications terminal. 

MacKay, A.M., "SYMple Clock," pg. 134-137. 
A clock program that is a little different — for the 4K 
SYM-1. 

Chamberlin, Hal, "Expanding KIM-Style 6502 Single 

Board Computers, pg. 138-139. 

How many expansion boards can the unbuffered 
microprocessor bus drive before becoming overloaded? 

Wells, George, "Load and Save KIM BASIC Programs on 

Your SYM," pg. 140-142. 
Can cousins marry and remain happy? 

1068. Apple-Com-Post Issue 9 (ca. June, 1980) 

Knuelle, Alfred, "Paddles, Joysticks undsoweiter," pg. 8. 

How to use a 40K pot in place of a difficult- to-find 150K 

pot in constructing paddles or joysticks for the Apple. 

Kniefel, J. and Goetze, Uwe, "Programmschutz," 

pg. H-12. 

How to add copyright statements to your basic pro- 

(Continued on next page) 



The only 
thing you can 
do with a 
baked Apple 
is eat it. 

"Apple II Is a trademark of Apple Computer, Inc. 



The more you stuff your Apple IF with plug-in 
boards, the more of a chance it has to overheat. 

And once that happens, it won't do anybody any 

good. Your program bombs and you start losing 

time and money. 

The solution? Simple. Take two minutes to install 
the Dana Industries fan in the back of your Apple, 
and you'll practically never have to 
worry about overheating again. 

So pick up the Dana Industries 
fan at your local 
computer store. 
And your Apple 
will have a long and 
fruitful life. 
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grams and make them more resistant to obliteration or 
alteration. 

1069. From The Core (February, 1981) 

Whittaker, Alec, "Lazer Lower Case Plus," pg. 4. 

A review of new hardware for the Apple. Also some 

routines for text files. 
Schroyer, Jeff, "Lazer Lowercase in Depth," pg. 5. 

An evaluation of this new hardware mod in some detail. 
Anon., "Dr. Apple: Some Uses for a Disassembler," 
pg. 5-7. 

Use the disassembler to assist in Pascal/Apple programs. 

Lingwood, David A., "Overlaying in Applesoft," pg. 6-7. 

How to get a 20K program to run in 8K. 
Budge, Joe, "The Locksmith," pg. 3. 

Some notes on the use, ethics, etc. of this utility in 

'unlocking' protected software disks. 

1070. Mini'app'les 4, No. 2 (February, 1981) 

Pinotti, Terry L., "DOS 3.2 and 3.3 on Single 
Controller," pg. 2-3. 

Hardware modification to your Apple Disk II controller 

card to switch back and forth between the 13/16 sectors. 
Hammond, Daryl, "Pondering Pascal: Run Time Errors," 
pg. 11-15. 

A tutorial on Apple/ Pascal and an example of how to 

debug Pascal programs. 
Pinotti, Terry L., "Game Paddle Port Modification," pg. 15. 

A simple hardware mod to make installing accessories 

on the Apple I/O ports. 

1071. Spreadsheet (Visigroup — A Visicalc User Group) 1, 
No. 1 (November, 1980) 

Staff, "Definitions," pg. 2. 

Definitions to make communications amongst Visicalc/ 
6502 users easier. 

Staff, "Template," pg. 3. 
Typical layout for a Visicalc sheet, reserving the first 
two columns for variables. 

1072. Spreadsheet 1, No. 2 (January, 1981) 

Mellon, Arthur Mellon, "Merging Templates," pg. 2. 

A time-saving procedure for setting up sheets. 
Anon., "Visilist," pg. 5-6. 

An accessory utility for printing out the contents of 

Visicalc template formulas, valuable in diagnostics and 

planning improvements. 
Ender, Philip, "Visitip #5: Flashing M." 

How to avoid that flashing M by using more memory in 

your Apple. 
Staff, "Visitip #6: Template Development Aid," 
pg. 6. 

How to find out where the "to" print position has got 

to in a template under development. 

1073. Printout 2, No. 2 (February/March, 1981) 

Batey, Duncan, "Matrix Codes," pg. 11. 

Useful table for PET users. 
Valentine, Mark, "Tick Tock PET," pg. 11. 

A 12- hour clock machine-language routine for PET. 

Nuttall, John, "Visicalc: How and Why," pg. 18-19. 

All about Visicalc for the PET. 
Turnbull, Tommy, "Tommy's Tips," pg. 21, 47. 

Automatic deletion of DATA statements; instant 



algebraic input; etc. 
Anon., "Turnkey ROMs: Do they Open the Door?", 
pg. 22, 31. 

How to implement turnkey operation on the PET. 

Jarrett, Dennis, "PET Communications — State of the 
Art Report," pg. 24-29. 

A special in-depth presentation on PET communication 

hardware, systems, etc. 
Staff, "Colour Display Arrives for PET," pg. 33-35. 

A review of the Chromadaptor for the PET system. 
Sanders, Gavin, "Get Back in the Black," pg. 36-37. 

How to recover and make reuseable those old printer 

ribbons. 
Yob, Gregory, "Personal Electronic Transactions," 
pg. 43-45. 

How to get lower case on the PET; a program for POKE- 

ing machine language into the PET memory; and 

several short machine language routines for the PET. 

1074. FWAUG Newsletter 2, No. 2 (December, 1980) 

McVay, Ray, "Disk Status Finder," pg. 2-10. 
A machine language routine that can be run from either 
DOS 3.2/3.3 which will tell the current DOS version, 
Master/slave status, free sectors and auto-boot file 
name. 

Meador, Lee, "Disassembly of DOS 3.2 — Part 10," 

pg. 12-18. 
This section of DOS is nearly identical between 3.2, 
3.2.1, and 3.3 — devoted to the DOS command 
decoder. 

1075. Apple Assembly Line 1, Issue 5 (February, 1981) 

Sandcr-Cederlof, Bob, "Apple Noises and Other Sounds," 
pg. 2-9. 

Routines for Apple bell, machine-gun noise, laser 

swoop, inch-worm sounds, touch-tone simulator, 

morse code output, etc. 
Boering, Brooke W., "Faster 16x16 Multiply," 
pg. 11-12. 

A routine for rapid multiplication of two 16-bit values 

to get a 32-bit value. 
Sander-Cederlof, Bob, "A String Swapper for Applesoft," 
pg. 14-15. 

Rearrange data, sort alphanumerics, all the easy way. 

1076. Softside 3, No. 5 (February, 1981) 

Pelczarski, Mark, "Developing Data Base: Part 6," 
pg. 16-17, 82-83. 

This month capabilities for print formatting are added 

to this utility for Apples and Ataris. 
Truckenbrod, Joan, "Three Dimensional Rotation — Part 
III," pg. 22-25. 

An Apple Hi-Res graphics program. 
Schoenmeyer, Roger, Thompson, Robert and Mueller, 
Carl, "Apple One-Liners," pg. 45. 

Three oneline programs for the Apple. 
Case, Phillip, "Miner," pg. 48-52. 

Atari and Apple versions of a program offering adven- 
ture deep in an abandoned gold mine. 
Cross, Mark, "Famous Sayings Hangman," pg. 59-61. 

A different type of Apple Hangman. 
Ockers, Stan, "Changing Hearts," pg. 64-65. 

An Atari graphics program. 
Daoust, John, "Darts," pg. 84. 

A paddle game for the Apple. 
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A 

Wooden 

Computer? 



Not from Commodore! 

So why should the desk look like wood? A pleasant 
cream and charcoal trimmed desk looks so much better 
with Commodore systems. One look and you'll see. 
Interlink desks are right. By design. 

The specifications only confirm the obvious: 



•Cream and charcoal 
color beautifully matches 
the Commodore hardware 
and blends with your 
decor. 

•An ideal 710 mm (28") 
keyboard height yet no 
bumping knees because a 
clever cutout recesses the 
computer into the desk- 
top. 

•High pressure laminate 
on both sides of a solid 
core for lasting beauty 
and strength. 
• Electrostatically applied 
baked enamel finish on 
welded steel legs— no 
cheap lacquer job here. 



•T-molding and rounded 
corners make a handsome 
finish on a durable edge 
that won't chip. 
•Knocked down for safe, 
inexpensive shipment. 
•Patented slip joints for 
quick easy assembly. 
•Leveling glides for 
uneven floors. 
•Room enough for a 
Commodore printer on the 
desk, yet fits into nearly 
any den or office niche— 
H: 660 mm (26") W: 1170 
mm (46") D: 660 mm (26"). 
•Matching printer stand 
available with slot for 
bottom feeding. 



PRICE: $299 

In short, as Commodore dealers, we won't settle for 
anything that looks good only in the catalog! Our 
customers won't let us. They don't buy pictures. And 
neither should you. This is why we will let you use one of 
our desks for a week and then decide. If for any reason 
you don't like it, just return it in good condition for a 
cheerful refund. 



' Index 



If your Commodore dealer doesn't carry our desks yet, 
send a check for $299 and we will ship your desk freight 
paid! 

Name 

Address 

City 



_St_ 



-ZIP- 



Interlink, Inc., Box 134, Berrien Springs, Ml 49103 
Master Charge and Visa welcome. Call our order line: 
616-473-3103 



Aardvark Technical Services 86 

Abacus Software 96, 100 

Advanced Operating Systems BC 

Anaheim Computer 89 

Andromeda, Inc 48 

Applied Analytics, Inc 42 

Avant-Garde Creations 98 

Beta Computer Devices 43 

Broderbund Software 31 

Central Point Software 7 

Classified Ads 91 

Cleveland Consumer Computers 82 

Columbus Instruments 43 

CompuTech 92 

Computer Case Co 35 

Computer Mail Order 34 

Computer Station 89 

Co-Op Software 61 

Connecticut Information Systems, Co 92 

Consumer Computers 26 

Creative Computing 95 

Decision Systems 100 

Dtack Grounded 35 

D&N Microproducts Inc 90 

Dosware Inc 73 

Eastern House Software 35 

Enclosures Group 90 

Exatron 18 

Execom Corp 32 

Fessenden Computer Service 100 

Galfo Systems 96 

Gimix, Inc 1 22 

Hogg Laboratories 96 

Howard Software 78 

Hudson Digital Electronics 36 

Huntington Computing 6 

Instant Software 24-25 

Interlink, Inc 11 1 

Jini Micro Systems 44 

Lazer Systems 65 

LJK Enterprises 107 

Logical Software, Inc 74 

Maramoty & Scotto Software Corp 19 

Micro Co-Op 40 

Micro Distributors 109 

MICRO INK, Inc 77 

Micro Interfaces 12 

Microsoft Consumer Products IFC 

MicroSoftware Systems 67 

Micro-Ware Distributing Inc 74 

Mittendorf Engineering 14 

Modular Systems 13 

Mountain Computer IBC 

National Computer Shows 1 

Nikrom Technical Products 67 

Omega Microware 81 

Omega Software Products 47 

Pegasys Systems 74 

Perry Peripherals 13 

Progressive Computing 13 

Quality Software 70 

Real-Soft 99 

Rosen Grandon Associates 67 

Sensible Software 57 

Serendipity Systems, Inc 96 

Sirius Software 2 

Skyles Electric Works 17, 31, 46, 91 

Small Business Computer Systems 67 

Smartware 92 

Smoke Signal Broadcasting 23 

Softape 56 

Stellation Two 47 

Sunset Electronics 40 

Synergetic Solutions 89 

Synergistic Software 81 

Synertek Systems 4 

Technical Products 100 

Terrapin, Inc 7 

Travenol Laboratories Inc 90 

TSE Hardside 104-105 

Unique Data Systems 41 

Versa Computing 58 
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Next Month in MICRO 



In addition to the usual, balanced coverage we strive for in MICRO, since June 1981 we 
have added pages devoted to special topics. We call these added pages BONUS sections. 



Commodore Bonus Section 

This section will include the following articles: 

• VIC Light Pen-manship — evaluates 
several manufacturers' light pens which can 
be used with the VIC and offers 
demonstration programs for applying the 
pens as a scribe or color paint brush. 

• The PET from A to D — Analog to digital 
conversion on the PET. 

• Speeding Up ASCII File Retrieval — 

Machine language techniques to speed file 
retrieval in the PET and Apple. 

• Commodore ROM Genealogy — An up-to- 
date list of all the combinations of 
Commodore's ROMs, keyboards, and screens. 

• Character Set Substitution — Explains 
how PET characters are generated and 
discusses several alternate character sets 
that can be substituted for the largely 
redundant second character set. 



Apple Bonus Section 

Apple users will continue to receive extra 
material in October in the Apple Bonus 
Section. A sampling of articles follows. 

A Booby Trap in Applesoft addresses 
"protection" schemes for Applesoft. Random 
Numbers Generator in Machine Language 
offers a simple subroutine to use in a machine 
language program whenever random numbers 
are needed. And Taming the Wild Reset tells 
how a user can easily modify an Apple key- 
board to ignore normal resets. Solar Simulation 
provides a program for printing information and 
plotting positions (using hi-res graphics) of the 
first six planets of the Solar System. 

Coming in November 

November brings a double BONUS featuring 
Games and still more on the Apple — just in 
time for the upcoming, gift-giving holiday 
month of December. 



40% OFF 

Your money goes farther when you sub- 
scribe. During the course of a year, when you 
subscribe, you save 40% (in the U.S.). 

Pay only $18.00 ($1.50 a copy) for 12 monthly 
issues of MICRO sent directly to your home or 
office in the U.S. 



More MICRO for Less Money 
When You Subscribe 

But on the newsstand — if you can locate the 
issue you want — you pay $30.00 a year ($2.50 
a copy). 

Save 40% and make sure you get every issue. 
Subscribe to MICRO today. 



MICRO 

34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 

Please send me MICRO for 1 year 2 years 

NOTE: Airmail subscriptions accepted for 1 year only. 



Check enclosed $_ 
Charge my 

No. 



VISA account 
Mastercard account 



Expiration date 
Name 



Address 



City/State . 



Subscription Rates 

1 Year* 

Country Air Surface 

United States $18.00 

Canada 21.00 

Europe $36.00 21.00 

Mexico, Central America 39.00 21 .00 

Middle East, N. Africa 42.00 2100 

S. America, Central Africa 51 .00 21 .00 

S. Africa, Far East, 

Australasia 60.00 21.00 

* Airmail subscriptions accepted for only 1 year. 
For U.S. and Canadian 2-year rates, multiply by 2. 



.Zip 



Job Title: 



Type of Business/Industry: 
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Mountain Computer 
CPS Multifunction Card 



TM 



The Only Interface Card You Need! 



Connecting a Parallel Printer? 

Epson - Centronics - IDS Paper Tiger - CPS handles all these 
printers and olhers with on -board intelligence Co provide 
paging and other features found on no other card. 

Connecting a Serial Printer? 

Diablo 1 ? Qume^NEC - Tl 800 Series'? CPS handles these printers 
and others with standard RS-232 interface providing selection 
of baud rates, handshakes, paging, and more. 

Connecting a Modem or Terminal? 

Hayes Smartmodem? Novation CAT^M & R Penny whistle®CPS 
handles these and olhers with full half duplex operation, baud 
rate selection, and even a transparent terminal "mode which 
includes a dual mode feature that permits printing of text to 
parallel printers while 'on-line' eliminating the need for special 
terminal software — and more. 

Connecting with the Time? 

The on-board calendar/clock provides real time and date 
information including day of week, day, month, year, hours, 
minutes, and seconds for any application requiring a lime 
stamp — battery backed-up for over two years! 

Connecting with The Source? 

Used with a modem, CPS provides the connection to informa- 
tion utilities, such as The Source, Dow Jones, and others. 
Additionally, CPS provides the connection to big-time electronic 
mail with programs such as Micro Couriered Micro Telegram? 
and other data transfer programs. 



Connect with Easy Use! 

CPS has no switches to set! All functions on the card are set 
from a user program. Menu driven screens set up your choice 
of all functions on CPS and store them on-board in CMOS 
RAM — battery backed-up (including the clock) for over two 
years! To change parameters, run the set-up program again — or 
use special commands from your keyboard. Furthermore, most 
existing software programs are immediately usable with CPS. 
Phantom Slot Capability permits assignment of CPS' functions 
to your software's pre-defined slots. 



Connect with Your Apple®Dealer 

Drop by your Apple dealer and see how the CPS Multifunction 
Card provides the most comprehensive capabilities for RS-232C 
serial interface, parallel output, and real-time calendar/clock 
of any card available today— all on one card — at one low price — 
competitive with any one of the three or more single function 
cards that it replaces. 







Mountain Computer 

incorporated" 

300 El Pueblo Road, Scotts Valley, CA 95066 
(408) 438-6650 TWX: 910 598-4504 









Registered trademarks 



Designing 

Computer Software Programs 

is Serious Business 



MfifflSBRSK 8 



OP««NGSyST EM S 



i Division of 
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work for you 1 - 
Sincerely, ^__^^__ 





45 St. John Road 

Suite 792 6360 

Michigan City"* 
(2l9 -879-4693) 




